HLUOPTF1 ;ALB/CJM-HL7 -Set Logic for the AI x-ref on file 773 ;02/04/2004
Source file <HLUOPTF1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PXREF(IEN,STATUS) | ;sets the AI x-ref on file 773 and the FAST PURGE DT/TM fields in file 772 and 773
|
|
SET(IEN773,WHEN,IEN772) | ;sets FAST PURGE DT/TM for and the AI x~ref for both file 772 & 773
|
|
WAIT() | ;
|