LONGSTOP [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: LONGSTOP)}}
====== LONGSTOP ======
(GIN Macro)

**Defined in:** [[george:source:CHCHCOORMAC2|CHCHCOORMAC2]]

**Used in:** [[george:source:ADDJOB867|ADDJOB867]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:CHINERR867|CHINERR867]], [[george:source:CLOSEMT867|CLOSEMT867]], [[george:source:COPYB867|COPYB867]], [[george:source:DEMAND860|DEMAND860]], [[george:source:DETACH867|DETACH867]], [[george:source:ENWELLB867|ENWELLB867]], [[george:source:HLSEVENT867|HLSEVENT867]], [[george:source:INLOOP84|INLOOP84]], [[george:source:INPCT84|INPCT84]], [[george:source:INPUTJDF82|INPUTJDF82]], [[george:source:INPUTMOP82|INPUTMOP82]], [[george:source:INRESTAR84|INRESTAR84]], [[george:source:IPBMOPC867|IPBMOPC867]], [[george:source:LIBQUERY|LIBQUERY]], [[george:source:LISTFREE867|LISTFREE867]], [[george:source:LISTNIP865|LISTNIP865]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:MOPOUT85|MOPOUT85]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:OFFREL867|OFFREL867]], [[george:source:OLMTE85|OLMTE85]], [[george:source:OLPODD865|OLPODD865]], [[george:source:ONLINEA867|ONLINEA867]], [[george:source:OPENWORK866|OPENWORK866]], [[george:source:ORELMAIN867|ORELMAIN867]], [[george:source:PCTCON8|PCTCON8]], [[george:source:PERFPASS864|PERFPASS864]], [[george:source:QUESCOM867|QUESCOM867]], [[george:source:READBULK867|READBULK867]], [[george:source:RENAME864|RENAME864]], [[george:source:REQCART866|REQCART866]], [[george:source:RETURNIT867|RETURNIT867]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SCHEDMTX867|SCHEDMTX867]], [[george:source:TAPEWAIT65|TAPEWAIT65]], [[george:source:TIDYREAD850|TIDYREAD850]], [[george:source:TWINSETB866|TWINSETB866]], [[george:source:USERONE867|USERONE867]], [[george:source:WAIT867|WAIT867]], [[george:source:WLC867|WLC867]]

<code - LONGSTOP.mac.txt>
 H776 ...#     HERE FOLLOWS THE JOBWELL PHASE 4 VERSIONS OF THE LONG... MACROS   
 H7=6 ...#   
 H7*6 ...#MAC  LONGSTOP  
 H7D6 ...#STR  %C
 H7H6 ...      MONOUT   %C   
 H7L6 ...%D  
 H7P6 ...#STR  %E
 H7S6 ...#SKI
 H7X6 ...(   
 H826 ...      SMO      FX2  
 H856 ...      STOZ     CLONG3   
 H886 ...)   
 H8?6 ...#STR  %E
 H8B6 ...      ACCSTO   %E,CLONG3,FX2
 H8F6 ...MWATE   
 H8J6 ...#STR  %B%E  
 H8M6 ...      LDN   1  #6000
 H8Q6 ...#STR  %B%E  
 H8T6 ...#SKI
 H8Y6 ...      LDN   1  #2000
 H936 ...      CALL  0  (COOR3LW1)   
 H966 ...      BRN      %A   
 H996 ...#STR  %B
 H9#6 ...      BRN      %B   
 H9C6 ...#STR  %B
 H9G6 ...#SKI
 H9K6 ...      BRN      MWATE
 H9N6 ...#NOR
</code>