{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: LFDEL)}}
====== LFDEL ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_LEF|MACROS LEF]]

**Used in:** [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTPROC867|LISTPROC867]]

<code - LFDEL.mac.txt>
 8PJD ...[??? LFDEL SECT DEVT FGN 2 DOC  
 8PS=    #MAC  LFDEL 
 8Q?W    [THIS MACRO DELETES AN ENTRY FROM SYSOUT
 8QRG    [%A AND %B ARE INDEX KEYS   
 8R?6    [%C = GETPER THEN REPLY INDICATES REASON
 8RQQ    [%C = LOSTM  THEN MAINFILE LOST IN LFLOST MACRO 
 8S=B    [%C = LOSTS  THEN SETUP FILE LOST IN LFLOST MACRO   
 8SQ2    [%C = SLIST  THEN STOPLIST  
 8T9L    #ACC  %A
 8TP=          LDX   0  %A   
 8W8W          SMO      FX2  
 8WNG    #ACC  %A
 8X86          STO   0  ACOMMUNE1
 8XMQ    #ACC  %A
 8Y7B    #SKI
 8YM2          STO   %A ACOMMUNE1
 8^6L    #ACC  %B
 8^L=          LDX   0  %B   
 925W          SMO      FX2  
 92KG    #ACC  %B
 9356          STO   0  ACOMMUNE2
 93JQ    #ACC  %B
 944B    #SKI
 94J2          STO   %B ACOMMUNE2
 953L          LDX   2  FX2  
 95H=    #STR  %C,GETPER 
 962W    #SKI
 96GG          LDN   0  0
 9726    #STR  %C,LOSTM  
 97FQ    #SKI
 97^B          LDN   0  1
 98F2    #STR  %C,LOSTS  
 98YL    #SKI
 99D=          LDN   0  2
 99XW    #STR  %C,SLIST  
 9=CG    #SKI
 9=X6          LDN   0  3
 9?BQ          STO   0  ACOMMUNE3(2) 
 9?WB ...      DOWN     LISTFNDA,1   
 9#B2    #NOR
</code>