ECX357PT ;ALB/JAM - Restricting Stop Code Post-Init Rtn; 0707/03
Source file <ECX357PT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; entry point
|
|
| PROCESS | ;background entry point
; Locate invalid Stop Code in file #728.44 and put in a mail message |
|
| CK72844 | ;Check file 728.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
|
|
| HDR1 | ;header for data from file #728.44
|
|
| MSGTXT | ; Message intro
|
|
| LINE(TEXT,TYP) | ; Add line to message global
|
|
| ; Send message
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
