FTOOLMBR IF F 92 DISK
ITOOLMBR NS 01
I 1 6 SRCSEQ
I 7 12 SRCDAT
I 13 92 SRCDTA
ISRCDTA DS
I 1 19 OBJUSE
I 4 13 OBJ
I 4 79 OBJINF
I 'Objects used by the' C CT
I '**NEWPAGE ' C NP
C *ENTRY PLIST
C PARM TOOLP 10
C *HIVAL SETLLTOOLMBR
C READPTOOLMBR 90
C *IN90 DOWEQ*OFF
C OBJUSE ANDNECT
C READPTOOLMBR 90
C ENDDO
*
C *IN90 IFEQ *OFF
C DO 8
C READ TOOLMBR 90
C END
C OBJ DOUEQ*BLANK
C *IN90 OREQ *ON
C OBJUSE IFNE NP
C CALL 'QSNDDTAQ'
C PARM 'TOOLDQ' DTAQ 10
C PARM 'QTEMP' LIB 10
C PARM 76 LEN 50
C PARM OBJINF
C PARM 3 KEYLEN 30
C PARM 'SRC' KEY 3
C ENDIF
C READ TOOLMBR 90
C ENDDO
C ENDIF
C MOVE *ON *INLR
| 
| 
