RINGTP

(GIN Macro)

Defined in: RCTPMACS

Used in: CHARGESC867, COMPRO867, DOMONOP867, EVENTFN, OPILLS70, PERFAIL866, PLUGIN867

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