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 |
