ERRTEST [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: ERRTEST)}}
====== ERRTEST ======
(GIN Macro)

**Defined in:** [[george:source:REPLY-MACROS|REPLY-MACROS]]

**Used in:** [[george:source:ALLOCATE867|ALLOCATE867]], [[george:source:FILESECU83|FILESECU83]], [[george:source:GETON867|GETON867]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:NETOFLNE867|NETOFLNE867]], [[george:source:OLMTA85|OLMTA85]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RETURN867|RETURN867]], [[george:source:TRANSPOT65|TRANSPOT65]], [[george:source:UNLOAD7|UNLOAD7]]

<code - ERRTEST.mac.txt>
 45L4 ...[??? ERRTEST SECT FILE FGN 2 DOC
 45TW    #     MACRO TO TEST FOR A NUMBER OF SPECIFIED FILESTORE REPLIES 
 46*G    #     AND, IF ANY OF THEM ARE FOUND, OUTPUT AN APPROPRIATE  
 46T6    #     ERROR MESSAGE AND BRANCH TO A SPECIFIED ADDRESS.  
 47#Q    #MACRO         ERRTEST             [M.B.KINGHAM 
 47SB    #SKI  %A>2-2
 48#2    #SKI
 48RL    !     ERROR   -   %A MUST BE IN RANGE X3-X7 INCLUSIVE   
 49?=          ERRTESTA %A,%C,%D,%E,%F,%G,%H,%I,%J,%K,%L 
 49QW          BRN      M2ERRTEST
 4==G    M0ERRTEST   
 4=Q6          SMO      FX2  
 4?9Q          BXE   %A ACOMMUNE9,M1ERRTEST  
 4?PB          EXIT  0  1
 4#92    M1ERRTEST   
 4#NL          SMO      0
 4*8=          LDX   0  0
 4*MW          ERRORX   0
 4B7G          STO   %A ACOMMUNE9(2) 
 4BM6          BRN      %B   
 4C6Q    M2ERRTEST   
 4CLB    #NOR
</code>