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

**Defined in:** [[george:source:MACROS_RME10|MACROS RME10]]

**Used in:** [[george:source:CLOSEMT867|CLOSEMT867]], [[george:source:DEAD867|DEAD867]], [[george:source:DIRENT867|DIRENT867]], [[george:source:DUMP860|DUMP860]], [[george:source:FHOBJIND860|FHOBJIND860]], [[george:source:INCOBS867|INCOBS867]], [[george:source:LABEL866|LABEL866]], [[george:source:LIBINSEC864|LIBINSEC864]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LIBMANY867|LIBMANY867]], [[george:source:LIBQUERY|LIBQUERY]], [[george:source:LIBREQC867|LIBREQC867]], [[george:source:LIBREQCA867|LIBREQCA867]], [[george:source:LIBSEC867|LIBSEC867]], [[george:source:LIBTSN867|LIBTSN867]], [[george:source:NEWA867|NEWA867]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPW867|NEWPW867]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RESTEND850|RESTEND850]], [[george:source:RETURN867|RETURN867]], [[george:source:RETURNA867|RETURNA867]], [[george:source:RETURNIT867|RETURNIT867]], [[george:source:SCHEDMTA860|SCHEDMTA860]], [[george:source:SETPF867|SETPF867]], [[george:source:SETPR867|SETPR867]], [[george:source:TAPERING867|TAPERING867]], [[george:source:TAPEWAIT65|TAPEWAIT65]], [[george:source:XENON|XENON]]

<code - SSEARCH.mac.txt>
 8C## ...[??? SSEARCH SECT FILE FGN 4 DOC
 8CJ6    #     MACRO TO FIND AN ENTRY IN :SYSTEM.SERIAL  
 8D3Q    #MAC  SSEARCH   
 8DHB    #ACC  %B
 8F32    (   
 8FGL          LDX   0  %B   
 8G2=          LDX   2  FX2  
 8GFW          STO   0  ACOMMUNE7(2) 
 8G^G    )   
 8HF6    #ACC  %B
 8HYQ    #SKI
 8JDB    (   
 8JY2          SMO      FX2  
 8KCL          STO   %B ACOMMUNE7
 8KX=          LDX   2  FX2  
 8LBW    )   
 8LWG    #STR  %C
 8MB6    (   
 8MTQ    #SKI  %C>511-511
 8N*B    (   
 8NT2          LDCT  0  %C   
 8P#L          SRA   0  15   
 8PS=    )   
 8Q?W    #SKI  %C<512$512
 8QRG          LDN   0  %C   
 8R?6          STO   0  ACOMMUNE9(2) 
 8RQQ    )   
 8S=B    #STR  %C
 8SQ2    #SKI
 8T9L          STOZ     ACOMMUNE9(2) 
 8TP=          DOWN     LOCATE,3 
 8W8W    #STR  %A
 8WNG          TESTREP2 NOFILE,%A
 8X86    #STR  %A
 8XMQ    #SKI
 8Y7B    (   
 8YM2          TESTREP2 OK,M1SS  
 8^6L          GEOERR   1,NOSYSER
 8^L=    M1SS
 925W    )   
 92KG          STEPAGAIN %C  
 9356    #NOR
</code>