Routine: DMSQP

Select the objects that you wish to see in the downloaded PDF

Information

DMSQP ;SFISC/EZ-PRINT SQLI TABLE POINTERS ;10/30/97 16:49

Source file <DMSQP.m>

Package	Total	Call Graph
VA Fileman	5	EN^DIAC ^DIC DT^DICRW EN1^DIP $$WAIT^DMSQT1

Name	Comments	DBIA/ICR reference
OK	; check if okay to run
CHK
CHK1	; check file access needed for navigation in PR2 report
EN1	; in pointers (to this table from others)
EN2	; out pointers (from this table out)
PR1
PR2
ASK
EXIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Sorry, SQLI files are empty.",! Line Location: OK+1
Function Call: WRITE	Prompt: !?5,"Try later. SQLI is being re-built right now." Line Location: OK+3
Function Call: WRITE	Prompt: !,?5,"NO POINTERS",! Line Location: CHK+0
Function Call: WRITE	Prompt: !!?5,"You need 'Read' access to one SQLI file to run this report." Line Location: CHK1+4
Function Call: WRITE	Prompt: !?5,"It is file 1.5212." Line Location: CHK1+5
Function Call: WRITE	Prompt: !!?5,"Contact your system manager to be granted single file access.",! Line Location: CHK1+6
Routine Call	DIC Line Location: ASK+1

Name	Line Occurrences (* Changed, ! Killed)
^DMSQ("DM" - [#1.5212]	PR1+5
^DMSQ("E" - [#1.5216]	CHK
^DMSQ("S" - [#1.521]	OK+1
^DMSQ("T" - [#1.5215]	PR1+2, PR2+1

Name	Field # of Occurrence
>> %	CHK1+2
>> BY(0	PR1+6, PR2+4
>> DHD	PR1+2, PR2+1
DIAC	CHK1+1!, CHK1+2*
DIC	ASK, ASK+1!, PR1, PR2*
DIC(0	ASK*
>> DIFILE	CHK1+1*
>> DIS(0	PR1+1*
DMQ	EN1+1, EN1+2, EN2+1, EN2+2, OK+1, OK+2, ASK+1, CHK, CHK1+2*, CHK1+3 , EXIT!
DMY	ASK+1*, CHK, PR1+2, PR1+5, PR2+1, EXIT!
DMY1	PR1+5*, EXIT!
>> DTOUT	ASK+1
>> DUOUT	ASK+1
DUZ(0	CHK1+1
>> FLDS	PR1+3, PR2+2
>> FLDS(1	PR1+4, PR2+3
>> L	PR1, PR2
>> L(0	PR1+6, PR2+4
U	PR1+2, PR2+1
>> Y	ASK+1