(George Source)
Macros used: GETWORD, SEGENTRY, STEPBAC, TRACE, UP, WORDFIN
22FL #LIS K0STEPBACK 22^= #SEG STEPBACK1 [R.H.THOMPSON F6 23DW 8HSTEPBACK 23YG # THIS SEGMENT IS ENTERED BY THE STEPBACK MACRO TO STEPBACK 24D6 # THE ORDER NUMBER REGISTER OF AN OBJECT PROG MEMBER 24XQ # ENTRY POINTS 1:ONLY 25CB # ON ENTRY,THE MEMBER NO. IS IN ACOMMUNE7 OF THE CPA 25X2 SEGENTRY K1STEPBACK 26BL #SKIP K6STEPBACK>99-99 26W= TRACE JOBNO(2),STEPBACK 27*W STOZ 4 27TG GETWORD 4,3,WRITE 28*6 STEPBAC 3 [STEP BACK ONR 28SQ WORDFIN 29#B UP 29S2 #END ^^^^ ...61532074000100000000