SD53P317 ;ALB/JAM - Restricting Stop Code Post-Init Rtn ; 0707/03
Source file <SD53P317.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ; entry point
|
|
STPMOD | ;* designate stop codes in file 40.7 as primary, secondary or either
|
|
FILSC | ;Update stop code in file 40.7
|
|
PROCESS | ;background entry point
; Locate invalid Stop Code in file 44 & 728.44 and put in a mail message |
|
CK44 | ;Check file 44 for invalid stop codes.
|
|
SCNUM(SCIEN) | ;Get stop code Number
|
|
SCIEN(SCN) | ;Get stop code IEN
|
|
SCCHK(SCIEN,TYP) | ;check stop code against file 40.7
|
|
CNTR | ;counter
|
|
HDR | ;Header for data from file #44
|
|
MSGTXT | ; Message intro
|
|
LINE(TEXT,TYP) | ; Add line to message global
|
|
; Send message
|
FileNo | Call Tags |
---|---|
^DIC(40.7 - [#40.7] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(40.7 - [#40.7] | STPMOD+11, STPMOD+12, STPMOD+13, STPMOD+14, STPMOD+18, STPMOD+19, STPMOD+20, STPMOD+28, STPMOD+29, SCNUM+2 , SCIEN+2, SCCHK+3 |
^SC - [#44] | CK44+5, CK44+6, CK44+8 |
^TMP( | PROCESS+5!, PROCESS+9!, LINE+12*, LINE+13* |
^TMP("STPCD" | STPMOD+11*, STPMOD+13*, STPMOD+23, STPMOD+24 |
^UTILITY("STPCODE" | POST+23!, STPMOD+8 |
^UTL("STPCODE" | POST+3! |
Name | Line Occurrences |
---|---|
$$SCNUM | CK44+13, CK44+17, LINE+5, LINE+6, LINE+7 |
CK44 | PROCESS+7 |
CNTR | SCCHK+4, SCCHK+6 |
FILSC | STPMOD+14, STPMOD+20 |
HDR | CK44+3 |
LINE | PROCESS+6, CK44+20, CK44+21, CK44+23, CK44+24, HDR+1, HDR+4, HDR+6, HDR+7, HDR+10 , HDR+13, HDR+16, HDR+18 |
PROCESS+8 | |
SCCHK | CK44+15, CK44+19 |
STPMOD | POST+15 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BLN | PROCESS+2~, PROCESS+4*, CK44+22, HDR+5, HDR+8, HDR+9, HDR+11, HDR+12, HDR+14, HDR+15 , LINE+4, LINE+5, LINE+6, LINE+7 |
CNT | PROCESS+2~, CK44+6*, CK44+12*, CK44+14*, CK44+18*, SCCHK+5, SCCHK+6, SCCHK+8, CNTR+1* |
CNTX | PROCESS+2~, CK44+2*, CK44+20*, CK44+22 |
CODE | STPMOD+5~, STPMOD+9*, STPMOD+11, STPMOD+12, STPMOD+13, STPMOD+14, STPMOD+15, STPMOD+23*, STPMOD+24, STPMOD+26 |
COUNT | PROCESS+2~, PROCESS+4*, LINE+12*, LINE+13* |
CTY | SCCHK+1~, SCCHK+2*, SCCHK+7 |
DA | STPMOD+5~, FILSC+2* |
DIC | STPMOD+5~ |
DIE | STPMOD+5~, FILSC+1* |
DPC | PROCESS+2~, LINE+7 |
DPCN | PROCESS+3~ |
DR | STPMOD+5~, FILSC+2* |
DSC | PROCESS+2~, LINE+7 |
DSCN | PROCESS+3~ |
DUZ | MAIL+2 |
FLN | LINE+1~ |
I | PROCESS+2~, PROCESS+6* |
IDAT | CK44+1~, CK44+8*, CK44+9 |
IDT | PROCESS+3~, CK44+9*, CK44+10 |
IEN | STPMOD+5~, STPMOD+12*, STPMOD+13, STPMOD+14*, STPMOD+18*, STPMOD+19, STPMOD+20*, STPMOD+28*, STPMOD+29, FILSC+2 , PROCESS+2~, CK44+2*, CK44+5*, CK44+6, CK44+8 |
INACT | STPMOD+5~, STPMOD+10*, STPMOD+25* |
LNS | PROCESS+2~, PROCESS+4*, HDR+17 |
NAM | PROCESS+2~, CK44+8*, CK44+9*, CK44+10*, LINE+4 |
NAME | STPMOD+5~, STPMOD+9*, STPMOD+15, STPMOD+24*, STPMOD+26 |
PSC | PROCESS+2~, CK44+6*, CK44+12, CK44+13, CK44+14, CK44+15, LINE+5 |
PSCN | PROCESS+3~, CK44+11*, CK44+13*, CK44+14 |
RDT | CK44+1~, CK44+9*, CK44+10 |
RESDT | STPMOD+5~, STPMOD+10*, STPMOD+19*, STPMOD+25*, FILSC+2 |
RESTY | STPMOD+5~, STPMOD+9*, STPMOD+17*, STPMOD+25*, FILSC+2 |
RTY | SCCHK+1~, SCCHK+3*, SCCHK+6, SCCHK+7 |
SCIEN | SCNUM~, SCNUM+1, SCNUM+2, SCIEN+2*, SCIEN+3, SCCHK~, SCCHK+3, SCCHK+5 |
SCN | PROCESS+3~, SCNUM+2*, SCNUM+3, SCIEN~, SCIEN+1, SCIEN+2, SCCHK+1~, SCCHK+3*, SCCHK+4, SCCHK+6 , SCCHK+8 |
SDJ | POST+2~, POST+4*, STPMOD+8, PROCESS+2~, PROCESS+5*, PROCESS+9, LINE+12, LINE+13 |
SDX | STPMOD+5~, STPMOD+8*, STPMOD+17*, STPMOD+18, STPMOD+20, STPMOD+21, STPMOD+24*, PROCESS+2~, CK44+6*, CK44+7 , CK44+8 |
SDXX | STPMOD+5~, STPMOD+8*, STPMOD+9, STPMOD+10, STPMOD+11, STPMOD+13, STPMOD+19*, STPMOD+21, STPMOD+25, STPMOD+29* , STPMOD+30 |
SSC | PROCESS+2~, CK44+6*, CK44+16, CK44+17, CK44+18, CK44+19, LINE+6 |
SSCN | PROCESS+3~, CK44+11*, CK44+17*, CK44+18 |
STR | PROCESS+2~, CK44+6!, CK44+20, CK44+22*, CK44+23, HDR+2*, HDR+3*, HDR+4, HDR+5*, HDR+6 , HDR+8*, HDR+9*, HDR+10, HDR+11*, HDR+12*, HDR+13, HDR+14*, HDR+15*, HDR+16, HDR+17* , HDR+18, LINE+1~, LINE+4*, LINE+5*, LINE+6*, LINE+7*, LINE+11 |
STR( | CK44+12*, CK44+14*, CK44+18*, SCCHK+5*, SCCHK+6*, SCCHK+8* |
STR(0 | CK44+20 |
TEXT | PROCESS+9!, LINE~, LINE+13 |
TEXT( | LINE+9, LINE+11*, LINE+12 |
TEXT(0 | LINE+3 |
TXTVAR | PROCESS+2~, PROCESS+6* |
TYP | PROCESS+9!, SCCHK~, SCCHK+2, SCCHK+8, LINE~, LINE+4, LINE+5, LINE+6, LINE+7 |
U | STPMOD+9, STPMOD+10, STPMOD+21, STPMOD+24, STPMOD+25, STPMOD+29, STPMOD+30, CK44+6, CK44+7, CK44+8 , CK44+9, SCNUM+2, SCCHK+3 |
X | STPMOD+5~ |
XI | LINE+1~, LINE+9*, LINE+11, LINE+12 |
XMDUZ | MAIL+1~, MAIL+2* |
XMSUB | MAIL+1~, MAIL+3* |
XMTEXT | MAIL+1~, MAIL+4* |
XMY | MAIL+1~ |
XMY( | MAIL+2* |
Y | STPMOD+5~ |
ZTDESC | POST+2~, POST+18* |
ZTDTH | POST+2~, POST+19* |
ZTIO | POST+2~, POST+19* |
ZTREQ | POST+2~, POST+19* |
ZTRTN | POST+2~, POST+17* |
ZTSAVE | POST+2~ |
Name | Field # of Occurrence |
---|---|
$T(MSGTXT+I | PROCESS+6 |