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

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

**Used in:** [[george:source:CHARGESC867|CHARGESC867]], [[george:source:COMPRO867|COMPRO867]], [[george:source:DOMONOP867|DOMONOP867]], [[george:source:EVENTFN|EVENTFN]], [[george:source:OPILLS70|OPILLS70]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PLUGIN867|PLUGIN867]]

<code - RINGTP.mac.txt>
 38JB    #     THIS MACRO ENRINGS THE TP/PCA AND DERINGS 
 3942    #     THE PUC/PCA ONTO/FROM THE JOB RING
 39HL    #MAC           RINGTP   
 3=3=          FINDTP   %A,1 
 3=GW          LDN   1  JOBRING(1)   
 3?2G     MOD  LDN   2  JOBRING,%A   
 3?G6          ENRING   1,2  
 3?^Q     MOD  LDN   1  JOBRING,%A   
 3#FB          DERING   1
 3#^2    #NOR
</code>