Routine: DMSQP2

Information

DMSQP2 ;SFISC/EZ-PRINT SQLI'S DD INFORMATION ;10/30/97 17:29

Source file <DMSQP2.m>

Package	Total	Call Graph
VA Fileman	6	EN^DIAC DT^DICRW $$EXTERNAL^DILFD EN1^DIP ^DIR $$WAIT^DMSQT1
Kernel	1	^%ZIS

Name	Comments	DBIA/ICR reference
DN	; downward
EN	; for a single file or number range, show SQLI projection of fields
ASK1
ZIS
PRT	; report
CHK	; check for existence of SQLI data in DMSQ global
LST	; list file names and SQLI tables by file number
EN2	; display file numbers above
CHK1	; check file access needed for navigation in PRT report
EN1	; display file numbers below this one (subfiles)
INIT
EN3	; file number choices to use in EN, EN1, EN2
EXIT
ASK	; select file numbers
PAGE
UP	; upward

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Sorry, SQLI files are empty.",! Line Location: CHK+1
Function Call: WRITE	Prompt: !?5,"Try later. SQLI is being re-built right now." Line Location: CHK+3
Function Call: WRITE	Prompt: !!?5,"You need 'Read' access to four SQLI files to run this report." Line Location: CHK1+4
Function Call: WRITE	Prompt: !?5,"They are files 1.5211, 1.5212, 1.5214, and 1.5216." Line Location: CHK1+5
Function Call: WRITE	Prompt: !!?5,"Contact your system manager to be granted single file access.",! Line Location: CHK1+6
Function Call: WRITE	Prompt: !,"SQLI table not found." Line Location: ASK+5
Function Call: WRITE	Prompt: !!?5,"There isn't a table for the file number you've entered." Line Location: ASK1+5
Function Call: WRITE	Prompt: !?5,"(The highest possible number is "_DM2_".)",! Line Location: ASK1+6
Function Call: WRITE	Prompt: !!?5,"Enter a LARGER number to get a range." Line Location: ASK1+8
Function Call: WRITE	Prompt: !?5,"The highest possible number here is "_DM2_".",! Line Location: ASK1+9
Function Call: WRITE	Prompt: !?5,DMY,?20,$$EXTERNAL^DILFD(1.5215,6,"",DMY) Line Location: DN+8
Function Call: WRITE	Prompt: !?5,DMY,?20,$$EXTERNAL^DILFD(1.5215,6,"",DMY) Line Location: UP+5
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+0
Routine Call	DIR Line Location: ASK+4 ASK1+3 PAGE
Routine Call	%ZIS Line Location: ZIS

Name	Line Occurrences (* Changed, ! Killed)
^DMSQ("DM" - [#1.5212]	DN+2, DN+3, UP+3
^DMSQ("E" - [#1.5216]	DN+4, DN+5, UP+2, UP+3
^DMSQ("S" - [#1.521]	CHK+1
^DMSQ("T" - [#1.5215]	ASK+1, ASK+5, ASK1+4, DN+1, DN+5, UP+1, UP+3

Name	Field # of Occurrence
>> %	CHK1+2
>> BY	LST+1*
>> BY(0	PRT+9*
>> DHD	PRT+1, LST+4
DIAC	CHK1+1!, CHK1+2*
>> DIC	PRT+1, LST+1
>> DIFILE	CHK1+1*
DIR	ASK+4!, ASK1+3!, PAGE!
DIR("?"	ASK+3, ASK1+2
DIR("A"	ASK+2, ASK1+1
DIR("B"	ASK+4, ASK1
DIR(0	ASK+2, ASK1+1, PAGE*
>> DIRUT	ASK+4, DN+7, UP+4
>> DISPAR(0	PRT+10, PRT+11
DM1	EXIT!, ASK+1*, ASK+2, ASK1+1
DM2	EXIT!, ASK+1*, ASK+2, ASK1+1, ASK1+6, ASK1+9
DMFN	EXIT!, ASK+4*, ASK+5, ASK1, ASK1+7, PRT+9, DN+1, UP+1
DMFN1	EXIT!, ASK1+3*, ASK1+4, ASK1+7, PRT+9
DMNODE	EXIT!, DN+5*, DN+6
DMQ	EN+1, EN1+1, EN2+1, EN3+1, INIT, ZIS, EXIT!, CHK+1, CHK+2, CHK1+2 , CHK1+3, ASK+4, ASK1+3, DN+4, DN+7, UP+2, UP+4
DMX	EXIT!, DN+1, DN+2, DN+3, DN+4, UP+1, UP+2
DMX1	EXIT!, DN+4, DN+5, UP+2, UP+3
DMY	EXIT!, DN+6, DN+8, UP+3, UP+5
>> DTOUT	ASK1+3
>> DUOUT	ASK1+3
DUZ(0	CHK1+1
>> FLDS	PRT+2, LST+2
>> FLDS(1	PRT+3, LST+3
>> FLDS(2	PRT+4*
>> FLDS(3	PRT+5*
>> FLDS(4	PRT+6*
>> FLDS(5	PRT+7*
>> FLDS(6	PRT+8*
>> FR(0	PRT+9*
IOF	PAGE
IOSL	DN+7, UP+4
IOST	PAGE
>> L	PRT+1, LST+1
>> L(0	PRT+9*
>> POP	ZIS
>> TO(0	PRT+9*
U	DN+3, DN+5, DN+6, UP+3
>> Y	ASK+4, ASK1+3