Title : Extension to CICS/IMS IVP Submitter : Dougie Lawson Consultant Systems Programmer IBM UK Phone : 01256 341061 Release Submitter Details - Y Text :- The following groups of source provide an extension to the CICS/IMS IVP which avoids the need to use a sequential terminal to drive EXEC DLI. The following pieces of source are present :- CIMSPGM1 - CICS startup transaction CIMSPGM2 - Display map and call CIMSPGM3 CIMSPGM3 - DPL Program to read database DI21PART CIMSAREA - COMMAREA Copybook CIMSMAP - CICS BMS copybook for CIMSPGM2 CIMSMAP - CICS BMS map for CIMSPGM1 & 2 DFH - PSB used by CIMSPGM3 DFS - IBM Supplied load program for database DI21PART DFS - Load PSB source for database DI21PART DI21PART - DBD Source for Database DI21PART DI21PART - Load Data for database DI21PART CIMSPGM1 - CICS startup transaction :- CBL XOPTS(CICS) IDENTIFICATION DIVISION. PROGRAM-ID. CIMSPGM1. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. COPY CIMSMAP. PROCEDURE DIVISION. EXEC CICS SEND MAP('CIMSMAP') MAPONLY ERASE END-EXEC. EXEC CICS RETURN TRANSID('DLIP') END-EXEC. GOBACK. CIMSPGM2 - Display map and call CIMSPGM3 :- CBL XOPTS(CICS) IDENTIFICATION DIVISION. PROGRAM-ID. CIMSPGM2. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. COPY CIMSMAP. 01 COMMAREA. COPY CIMSAREA. PROCEDURE DIVISION. MAIN-LINE SECTION. EXEC CICS HANDLE AID CLEAR(HANDLE-CLEAR) END-EXEC. EXEC CICS RECEIVE MAP('CIMSMAP') INTO(CIMSMAPI) END-EXEC. MOVE SPACES TO COMMAREA. MOVE 'GET' TO FUNCTION-CODE. MOVE PARTSSAI TO PARTKEY. MOVE STANSSAI TO STANKEY. MOVE STOKSSAI TO STOCKEY. MOVE CYCLSSAI TO CYCLKEY. MOVE BACKSSAI TO BACKKEY. EXEC CICS LINK PROGRAM('CIMSPGM3') COMMAREA(CIMSAREA) END-EXEC. MOVE PARTROOT TO PARTROOTO. MOVE STANINFO1 TO STANINFO1O. MOVE STANINFO2 TO STANINFO2O. MOVE STANINFO3 TO STANINFO3O. MOVE STOKSTAT1 TO STOKSTAT1O. MOVE STOKSTAT2 TO STOKSTAT2O. MOVE STOKSTAT3 TO STOKSTAT3O. MOVE STOKSTAT4 TO STOKSTAT4O. MOVE CYCCOUNT TO CYCCOUNTO. MOVE BACKORDR1 TO BACKORDR1O. MOVE BACKORDR2 TO BACKORDR2O. EXEC CICS SEND MAP('CIMSMAP') FROM(CIMSMAPO) END-EXEC. EXEC CICS RETURN TRANSID('DLIP') END-EXEC. GOBACK. HANDLE-CLEAR SECTION. EXEC CICS RETURN END-EXEC. GOBACK. CIMSPGM3 - DPL Program to read database DI21PART :- CBL XOPTS(CICS DLI) IDENTIFICATION DIVISION. PROGRAM-ID. CIMSPGM3. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. COPY CIMSMAP. LINKAGE SECTION. 01 DFHCOMMAREA. COPY CIMSAREA. PROCEDURE DIVISION. MAIN-LINE SECTION. EXEC DLI SCHEDULE PSB(DFHSAM24) END-EXEC. IF DIBSTAT NOT = ' ' THEN MOVE '*** BAD STATUS CODE FROM SCHEDULE ***' TO PARTROOT EXEC CICS RETURN END-EXEC GOBACK END-IF. EXEC DLI GET UNIQUE SEGMENT(PARTROOT) WHERE(PARTKEY=PARTKEY) INTO(PARTROOT) END-EXEC. IF DIBSTAT = 'GE' THEN MOVE '*** NO SEGMENT FOUND ***' TO PARTROOT EXEC CICS RETURN END-EXEC GOBACK END-IF. EXEC DLI GET UNIQUE SEGMENT(PARTROOT) WHERE(PARTKEY=PARTKEY) SEGMENT(STANINFO) WHERE(STANKEY=STANKEY) INTO(STANINFO) END-EXEC. IF DIBSTAT = 'GE' THEN MOVE '*** NO SEGMENT FOUND ***' TO STANINFO. EXEC DLI GET UNIQUE SEGMENT(PARTROOT) WHERE(PARTKEY=PARTKEY) SEGMENT(STOKSTAT) WHERE(STOCKEY=STOCKEY) INTO(STOKSTAT) END-EXEC. IF DIBSTAT = 'GE' THEN MOVE '*** NO SEGMENT FOUND ***' TO STOKSTAT. EXEC DLI GET UNIQUE SEGMENT(PARTROOT) WHERE(PARTKEY=PARTKEY) SEGMENT(STOKSTAT) WHERE(STOCKEY=STOCKEY) SEGMENT(CYCCOUNT) WHERE(CYCLKEY=CYCLKEY) INTO(CYCCOUNT) END-EXEC. IF DIBSTAT = 'GE' THEN MOVE '*** NO SEGMENT FOUND ***' TO CYCCOUNT. EXEC DLI GET UNIQUE SEGMENT(PARTROOT) WHERE(PARTKEY=PARTKEY) SEGMENT(STOKSTAT) WHERE(STOCKEY=STOCKEY) SEGMENT(BACKORDR) WHERE(BACKKEY=BACKKEY) INTO(BACKORDR) END-EXEC. IF DIBSTAT = 'GE' THEN MOVE '*** NO SEGMENT FOUND ***' TO BACKORDR. EXEC CICS RETURN END-EXEC. GOBACK. CIMSAREA - COMMAREA Copybook :- 03 CIMSAREA . 05 FUNCTION-CODE PIC X(7). 05 PARTKEY PIC X(17). 05 STANKEY PIC X(2). 05 STOCKEY PIC X(16). 05 CYCLKEY PIC X(2). 05 BACKKEY PIC X(10). 05 PARTROOT PIC X(50). 05 STANSEG. 07 STANINFO PIC X(85). 05 STANSTRUCT REDEFINES STANSEG. 07 STANINFO1 PIC X(30). 07 STANINFO2 PIC X(30). 07 STANINFO3 PIC X(25). 05 STOKSEG. 07 STOKSTAT PIC X(160). 05 STOKSTRUCT REDEFINES STOKSEG. 07 STOKSTAT1 PIC X(40). 07 STOKSTAT2 PIC X(40). 07 STOKSTAT3 PIC X(40). 07 STOKSTAT4 PIC X(40). 05 CYCCOUNT PIC X(25). 05 BACKSEG. 07 BACKORDR PIC X(75). 05 BACKSTRUCT REDEFINES BACKSEG. 07 BACKORDR1 PIC X(40). 07 BACKORDR2 PIC X(35). CIMSMAP - CICS BMS copybook for CIMSPGM2 :- 01 CIMSMAPI. 02 FILLER PIC X(12). 02 PARTSSAL COMP PIC S9(4). 02 PARTSSAF PICTURE X. 02 FILLER REDEFINES PARTSSAF. 03 PARTSSAA PICTURE X. 02 PARTSSAI PIC X(17). 02 STANSSAL COMP PIC S9(4). 02 STANSSAF PICTURE X. 02 FILLER REDEFINES STANSSAF. 03 STANSSAA PICTURE X. 02 STANSSAI PIC X(2). 02 STOKSSAL COMP PIC S9(4). 02 STOKSSAF PICTURE X. 02 FILLER REDEFINES STOKSSAF. 03 STOKSSAA PICTURE X. 02 STOKSSAI PIC X(16). 02 CYCLSSAL COMP PIC S9(4). 02 CYCLSSAF PICTURE X. 02 FILLER REDEFINES CYCLSSAF. 03 CYCLSSAA PICTURE X. 02 CYCLSSAI PIC X(2). 02 BACKSSAL COMP PIC S9(4). 02 BACKSSAF PICTURE X. 02 FILLER REDEFINES BACKSSAF. 03 BACKSSAA PICTURE X. 02 BACKSSAI PIC X(10). 02 PARTROOTL COMP PIC S9(4). 02 PARTROOTF PICTURE X. 02 FILLER REDEFINES PARTROOTF. 03 PARTROOTA PICTURE X. 02 PARTROOTI PIC X(50). 02 STANINFO1L COMP PIC S9(4). 02 STANINFO1F PICTURE X. 02 FILLER REDEFINES STANINFO1F. 03 STANINFO1A PICTURE X. 02 STANINFO1I PIC X(30). 02 STOKSTAT1L COMP PIC S9(4). 02 STOKSTAT1F PICTURE X. 02 FILLER REDEFINES STOKSTAT1F. 03 STOKSTAT1A PICTURE X. 02 STOKSTAT1I PIC X(40). 02 STANINFO2L COMP PIC S9(4). 02 STANINFO2F PICTURE X. 02 FILLER REDEFINES STANINFO2F. 03 STANINFO2A PICTURE X. 02 STANINFO2I PIC X(30). 02 STOKSTAT2L COMP PIC S9(4). 02 STOKSTAT2F PICTURE X. 02 FILLER REDEFINES STOKSTAT2F. 03 STOKSTAT2A PICTURE X. 02 STOKSTAT2I PIC X(40). 02 STANINFO3L COMP PIC S9(4). 02 STANINFO3F PICTURE X. 02 FILLER REDEFINES STANINFO3F. 03 STANINFO3A PICTURE X. 02 STANINFO3I PIC X(25). 02 STOKSTAT3L COMP PIC S9(4). 02 STOKSTAT3F PICTURE X. 02 FILLER REDEFINES STOKSTAT3F. 03 STOKSTAT3A PICTURE X. 02 STOKSTAT3I PIC X(40). 02 STOKSTAT4L COMP PIC S9(4). 02 STOKSTAT4F PICTURE X. 02 FILLER REDEFINES STOKSTAT4F. 03 STOKSTAT4A PICTURE X. 02 STOKSTAT4I PIC X(40). 02 CYCCOUNTL COMP PIC S9(4). 02 CYCCOUNTF PICTURE X. 02 FILLER REDEFINES CYCCOUNTF. 03 CYCCOUNTA PICTURE X. 02 CYCCOUNTI PIC X(25). 02 BACKORDR1L COMP PIC S9(4). 02 BACKORDR1F PICTURE X. 02 FILLER REDEFINES BACKORDR1F. 03 BACKORDR1A PICTURE X. 02 BACKORDR1I PIC X(40). 02 BACKORDR2L COMP PIC S9(4). 02 BACKORDR2F PICTURE X. 02 FILLER REDEFINES BACKORDR2F. 03 BACKORDR2A PICTURE X. 02 BACKORDR2I PIC X(35). 01 CIMSMAPO REDEFINES CIMSMAPI. 02 FILLER PIC X(12). 02 FILLER PICTURE X(3). 02 PARTSSAO PIC X(17). 02 FILLER PICTURE X(3). 02 STANSSAO PIC X(2). 02 FILLER PICTURE X(3). 02 STOKSSAO PIC X(16). 02 FILLER PICTURE X(3). 02 CYCLSSAO PIC X(2). 02 FILLER PICTURE X(3). 02 BACKSSAO PIC X(10). 02 FILLER PICTURE X(3). 02 PARTROOTO PIC X(50). 02 FILLER PICTURE X(3). 02 STANINFO1O PIC X(30). 02 FILLER PICTURE X(3). 02 STOKSTAT1O PIC X(40). 02 FILLER PICTURE X(3). 02 STANINFO2O PIC X(30). 02 FILLER PICTURE X(3). 02 STOKSTAT2O PIC X(40). 02 FILLER PICTURE X(3). 02 STANINFO3O PIC X(25). 02 FILLER PICTURE X(3). 02 STOKSTAT3O PIC X(40). 02 FILLER PICTURE X(3). 02 STOKSTAT4O PIC X(40). 02 FILLER PICTURE X(3). 02 CYCCOUNTO PIC X(25). 02 FILLER PICTURE X(3). 02 BACKORDR1O PIC X(40). 02 FILLER PICTURE X(3). 02 BACKORDR2O PIC X(35). CIMSMAP - CICS BMS map for CIMSPGM1 & 2 :- MAPSET DFHMSD TYPE=&SYSPARM, X LANG=COBOL, X MODE=INOUT, X CTRL=(FREEKB,FRSET), X TIOAPFX=YES, X MAPATTS=(COLOR,HILIGHT) CIMSMAP DFHMDI SIZE=(24,80) ************************ *** Line 1 ************************ DFHMDF INITIAL='Display IMS database DI21PART', X POS=(1,2), X LENGTH=29, X ATTRB=(PROT,NUM) ************************ *** Line 2 ************************ * Unused ************************ *** Line 3 ************************ DFHMDF INITIAL='PARTROOT(PARTKEY', X POS=(3,2), X LENGTH=16, X ATTRB=(PROT,NUM) DFHMDF INITIAL='= ', x POS=(3,19), x ATTRB=(PROT,NUM), X LENGTH=2 PARTSSA DFHMDF POS=(3,22), X ATTRB=(UNPROT,FSET), X LENGTH=17 DFHMDF INITIAL=')', X POS=(3,40), X ATTRB=(PROT,NUM), c LENGTH=1 ************************ *** Line 4 ************************ DFHMDF INITIAL='STANINFO(STANKEY', X POS=(4,2), X LENGTH=16, X ATTRB=(PROT,NUM) DFHMDF INITIAL='= ', x POS=(4,19), x ATTRB=(PROT,NUM), X LENGTH=2 STANSSA DFHMDF POS=(4,22), X ATTRB=(UNPROT,FSET), X LENGTH=2 DFHMDF INITIAL=')', X POS=(4,25), X ATTRB=(PROT,NUM), c LENGTH=1 ************************ *** Line 5 ************************ DFHMDF INITIAL='STOKSTAT(STOCKEY', X POS=(5,2), X LENGTH=16, X ATTRB=(PROT,NUM) DFHMDF INITIAL='= ', x POS=(5,19), x ATTRB=(PROT,NUM), X LENGTH=2 STOKSSA DFHMDF POS=(5,22), X ATTRB=(UNPROT,FSET), X LENGTH=16 DFHMDF INITIAL=')', X POS=(5,39), X ATTRB=(PROT,NUM), c LENGTH=1 ************************ *** Line 6 ************************ DFHMDF INITIAL='CYCCOUNT(CYCLKEY', X POS=(6,2), X LENGTH=16, X ATTRB=(PROT,NUM) DFHMDF INITIAL='= ', x POS=(6,19), x ATTRB=(PROT,NUM), X LENGTH=2 CYCLSSA DFHMDF POS=(6,22), X ATTRB=(UNPROT,FSET), X LENGTH=2 DFHMDF INITIAL=')', X POS=(6,25), X ATTRB=(PROT,NUM), c LENGTH=1 ************************ *** Line 7 ************************ DFHMDF INITIAL='BACKORDR(BACKKEY', X POS=(7,2), X LENGTH=16, X ATTRB=(PROT,NUM) DFHMDF INITIAL='= ', x POS=(7,19), x ATTRB=(PROT,NUM), X LENGTH=2 BACKSSA DFHMDF POS=(7,22), X ATTRB=(UNPROT,FSET), X LENGTH=10 DFHMDF INITIAL=')', X POS=(7,33), X ATTRB=(PROT,NUM), c LENGTH=1 ************************ *** Line 8 ************************ * Unused ************************ *** Line 9 ************************ DFHMDF POS=(9,22), c INITIAL='PARTROOT', c LENGTH=8 ************************ *** Line 10 ************************ PARTROOT DFHMDF POS=(10,2), c LENGTH=50, c ATTRB=(UNPROT) ************************ *** Line 11 ************************ DFHMDF POS=(11,26), x INITIAL='³', x LENGTH=1 ************************ *** Line 12 ************************ DFHMDF POS=(12,16), x INITIAL='--------------------------------------------', x LENGTH=44 ************************ *** Line 13 ************************ DFHMDF POS=(13,16), x INITIAL='³', x LENGTH=1 DFHMDF POS=(13,59), x INITIAL='³', x LENGTH=1 ************************ *** Line 14 ************************ DFHMDF POS=(14,12), x INITIAL='STANINFO', c LENGTH=8 DFHMDF POS=(14,55), x INITIAL='STOKSTAT', c LENGTH=8 ************************ *** Line 15 ************************ STANINFO1 DFHMDF POS=(15,2), c LENGTH=30, c ATTRB=(UNPROT) STOKSTAT1 DFHMDF POS=(15,39), c LENGTH=40, c ATTRB=(UNPROT) ************************ *** Line 16 ************************ STANINFO2 DFHMDF POS=(16,2), c LENGTH=30, c ATTRB=(UNPROT) STOKSTAT2 DFHMDF POS=(16,39), c LENGTH=40, c ATTRB=(UNPROT) ************************ *** Line 17 ************************ STANINFO3 DFHMDF POS=(17,2), c LENGTH=25, c ATTRB=(UNPROT) STOKSTAT3 DFHMDF POS=(17,39), c LENGTH=40, c ATTRB=(UNPROT) ************************ *** Line 18 ************************ STOKSTAT4 DFHMDF POS=(18,39), c LENGTH=40, c ATTRB=(UNPROT) ************************ *** Line 19 ************************ DFHMDF POS=(19,59), x INITIAL='³', x LENGTH=1 ************************ *** Line 20 ************************ DFHMDF POS=(20,16), x INITIAL='--------------------------------------------', x LENGTH=44 ************************ *** Line 21 ************************ DFHMDF POS=(21,16), x INITIAL='³', c LENGTH=8 DFHMDF POS=(21,59), x INITIAL='³', c LENGTH=8 ************************ *** Line 22 ************************ DFHMDF POS=(22,12), x INITIAL='CYCCOUNT', c LENGTH=8 DFHMDF POS=(22,55), x INITIAL='BACKORDR', c LENGTH=8 ************************ *** Line 23 ************************ CYCCOUNT DFHMDF POS=(23,2), c LENGTH=25, c ATTRB=(UNPROT) BACKORDR1 DFHMDF POS=(23,39), c LENGTH=40, c ATTRB=(UNPROT) ************************ *** Line 24 ************************ BACKORDR2 DFHMDF POS=(24,39), c LENGTH=35, c ATTRB=(UNPROT) DFHMSD TYPE=FINAL END DFHSAM24 - PSB used by CIMSPGM3 :- **************************** INSTALL/IVP ****************************** 00010000 * * 00020000 * M O D U L E P R O L O G U E * 00030000 * * 00040000 *********************************************************************** 00050000 * * 00060000 * NAME: DFSIVPC4 * 00070000 * * 00080000 * DESCRIPTION: CICS IVP PSB - DFHSAM24 * 00090000 * * 00100000 **************************************************************@SCPYRT** 00110000 * * 00111000 * Licensed Materials - Property of IBM * 00112000 * * 00113000 * "Restricted Materials of IBM" * 00114000 * * 00115000 * 5695-176 (C) Copyright IBM Corp. 1974,1989 * 00116000 * * 00117000 **************************************************************@ECPYRT** 00240000 * * 00260000 * STATUS: IMS/ESA 3.1 * 00270000 * * 00280000 * MODULE TYPE: ASSEMBLER * 00290000 * * 00300000 * CHANGES: NEW FOR 3.1 * 00310000 * * 00320000 *---+----1----+----2----+----3----+----4----+----5----+----6----+----7* 00330000 *********************************************************************** 00340000 * 00350000 * GENERATE THE PSB FOR ADD, DELETE AND UPDATE ROUTINES - COBOL 00360000 * 00370000 *********************************************************************** 00380000 TITLE 'DFHSAM24:SB FOR CICS-DLI SAMPLE PROGRAM' 00390000 PCB TYPE=DB,DBDNAME=DI21PART,PROCOPT=A,KEYLEN=44 00400000 SENSEG NAME=PARTROOT,PARENT=0 00410000 SENSEG NAME=STANINFO,PARENT=PARTROOT 00420000 SENSEG NAME=STOKSTAT,PARENT=PARTROOT 00430000 SENSEG NAME=CYCCOUNT,PARENT=STOKSTAT 00440000 SENSEG NAME=BACKORDR,PARENT=STOKSTAT 00450000 PSBGEN LANG=COBOL,PSBNAME=DFHSAM24,MAXQ=1 00460000 END 00470000 DFSSAM01 - IBM Supplied load program for database DI21PART :- CBL APOST 00010000 IDENTIFICATION DIVISION. PROGRAM-ID. DFSSAM01. * ********************************************************@SCPYRT** * * * Licensed Materials - Property of IBM * * * * "Restricted Materials of IBM" * * * * 5695-176 (C) Copyright IBM Corp. 1974,1989 * * * ********************************************************@ECPYRT** * * DATA BASE LOAD PROGRAM. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-370. OBJECT-COMPUTER. IBM-370. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT INPUT-FILE ASSIGN TO UT-S-INPUT. DATA DIVISION. FILE SECTION. FD INPUT-FILE RECORD CONTAINS 80 CHARACTERS BLOCK CONTAINS 0 RECORDS RECORDING MODE IS F LABEL RECORDS ARE OMITTED DATA RECORD IS INPUT-RECORD. 01 INPUT-RECORD. 02 INP-SEG-NAME PICTURE X(08). 02 FILLER PICTURE X(01). 02 INP-DATA PICTURE X(67). 02 INP-SEQUENCE-NO PICTURE X(04). WORKING-STORAGE SECTION. 01 DL1-FUNCTION PICTURE X(04). 01 PREV-SEG-NAME PICTURE X(08) VALUE SPACE. 01 PREV-SEQUENCE-NO PICTURE X(04) VALUE SPACE. 01 BUILD-SEGMENT-AREA. 02 BUILD-DATA-AREA OCCURS 14 TIMES PICTURE X(67). 01 MISC-ARITHMETIC-FIELDS USAGE COMPUTATIONAL. 02 SUB-1 PICTURE S9(02) VALUE ZEROS. 01 SEG00010-SSA. 02 SEG-NAME-00010 PICTURE X(08) VALUE 'PARTROOT'. 02 BEGIN-OP-00010 PICTURE X(01) VALUE '('. 02 KEY-NAME-00010 PICTURE X(08) VALUE 'PARTKEY '. 02 REL-OPER-00010 PICTURE X(02) VALUE ' ='. 02 KEY-VALUE-00010 PICTURE X(17). 02 END-OP-00010 PICTURE X(01) VALUE ')'. 01 SEG00060-SSA. 02 SEG-NAME-00060 PICTURE X(08) VALUE 'STANINFO'. 02 BEGIN-OP-00060 PICTURE X(01) VALUE '('. 02 KEY-NAME-00060 PICTURE X(08) VALUE 'STANKEY '. 02 REL-OPER-00060 PICTURE X(02) VALUE ' ='. 02 KEY-VALUE-00060 PICTURE X(02). 02 END-OP-00060 PICTURE X(01) VALUE ')'. 01 SEG02000-SSA. 02 SEG-NAME-02000 PICTURE X(08) VALUE 'STOKSTAT'. 02 BEGIN-OP-02000 PICTURE X(01) VALUE '('. 02 KEY-NAME-02000 PICTURE X(08) VALUE 'STOCKEY '. 02 REL-OPER-02000 PICTURE X(02) VALUE ' ='. 02 KEY-VALUE-02000 PICTURE X(16). 02 END-OP-02000 PICTURE X(01) VALUE ')'. 01 SEG02200-SSA. 02 SEG-NAME-02200 PICTURE X(08) VALUE 'CYCCOUNT'. 02 BEGIN-OP-02200 PICTURE X(01) VALUE '('. 02 KEY-NAME-02200 PICTURE X(08) VALUE 'CYCLKEY '. 02 REL-OPER-02200 PICTURE X(02) VALUE ' ='. 02 KEY-VALUE-02200 PICTURE X(02). 02 END-OP-02200 PICTURE X(01) VALUE ')'. 01 SEG02300-SSA. 02 SEG-NAME-02300 PICTURE X(08) VALUE 'BACKORDR'. 02 BEGIN-OP-02300 PICTURE X(01) VALUE '('. 02 KEY-NAME-02300 PICTURE X(08) VALUE 'BACKKEY '. 02 REL-OPER-02300 PICTURE X(02) VALUE ' ='. 02 KEY-VALUE-02300 PICTURE X(10). 02 END-OP-02300 PICTURE X(01) VALUE ')'. 01 SEG00010-INSERT-AREA. 02 FILLER PICTURE X(050). 01 SEG00060-INSERT-AREA. 02 FILLER PICTURE X(61). 02 RIGHT-MAKE-SPAN PICTURE S9(03). 02 FILLER PICTURE X(06). 02 WRONG-MAKE-SPAN PICTURE 9(03). 02 FILLER PICTURE X(12). 01 SEG02000-INSERT-AREA. 02 FILLER PICTURE X(160). 01 SEG02200-INSERT-AREA. 02 FILLER PICTURE X(025). 01 SEG02300-INSERT-AREA. 02 FILLER PICTURE X(075). LINKAGE SECTION. 01 PCB-AREA-1. 02 DBD-NAME PICTURE X(08). 02 SEGMENT-LEVEL PICTURE X(02). 02 STATUS-CODES PICTURE X(02). 02 PROCESS-OPTIONS PICTURE X(04). 02 FILLER PICTURE S9(05) COMPUTATIONAL. 02 SEG-NAME-FEEDBACK PICTURE X(08). PROCEDURE DIVISION. ENTRY-POINT. ENTRY 'DLITCBL' USING PCB-AREA-1. DISPLAY 'START DB LOAD' UPON CONSOLE. OPEN INPUT INPUT-FILE. MOVE 'ISRT' TO DL1-FUNCTION. READ-INPUT-FILE. READ INPUT-FILE AT END GO TO END-INP-FILE. BUILD-SEGMENT. IF INP-SEG-NAME NOT EQUAL TO SPACES PERFORM WRITE-BUILT-SEGMENT THRU WRITE-SEGMENT-EXIT MOVE ZEROS TO SUB-1 MOVE SPACES TO BUILD-SEGMENT-AREA MOVE INP-SEG-NAME TO PREV-SEG-NAME. ADD 1 TO SUB-1. IF SUB-1 IS GREATER THAN 14 DISPLAY 'MORE THAN 14 CARDS PER SEGMENT' UPON CONSOLE DISPLAY 'SEGMENT IS ' PREV-SEG-NAME UPON CONSOLE GO TO LOCKED-HALT. MOVE INP-DATA TO BUILD-DATA-AREA (SUB-1). GO TO READ-INPUT-FILE. WRITE-BUILT-SEGMENT. IF PREV-SEG-NAME EQUAL TO SPACES GO TO WRITE-SEGMENT-EXIT. IF PREV-SEG-NAME = 'PARTROOT' GO TO SEGMENT-IS-SEG00010. IF PREV-SEG-NAME = 'STANINFO' GO TO SEGMENT-IS-SEG00060. IF PREV-SEG-NAME = 'STOKSTAT' GO TO SEGMENT-IS-SEG02000. IF PREV-SEG-NAME = 'CYCCOUNT' GO TO SEGMENT-IS-SEG02200. IF PREV-SEG-NAME = 'BACKORDR' GO TO SEGMENT-IS-SEG02300. INVALID-SEGMENT-NAME. DISPLAY 'INVALID SEGMENT NAME = ' PREV-SEG-NAME. GO TO LOCKED-HALT. SEGMENT-IS-SEG00010. MOVE BUILD-SEGMENT-AREA TO SEG00010-INSERT-AREA. MOVE BUILD-SEGMENT-AREA TO KEY-VALUE-00010. MOVE SPACE TO BEGIN-OP-00010. CALL 'CBLTDLI' USING DL1-FUNCTION, PCB-AREA-1, SEG00010-INSERT-AREA, SEG00010-SSA. MOVE '(' TO BEGIN-OP-00010. IF STATUS-CODES NOT = SPACES, GO TO SEGMENT-INSERT-ERROR. GO TO WRITE-SEGMENT-EXIT. SEGMENT-IS-SEG00060. MOVE BUILD-SEGMENT-AREA TO SEG00060-INSERT-AREA. MOVE WRONG-MAKE-SPAN TO RIGHT-MAKE-SPAN. MOVE BUILD-SEGMENT-AREA TO KEY-VALUE-00060. MOVE SPACE TO BEGIN-OP-00060. CALL 'CBLTDLI' USING DL1-FUNCTION, PCB-AREA-1, SEG00060-INSERT-AREA, SEG00010-SSA, SEG00060-SSA. MOVE '(' TO BEGIN-OP-00060. IF STATUS-CODES NOT = SPACES, GO TO SEGMENT-INSERT-ERROR. GO TO WRITE-SEGMENT-EXIT. SEGMENT-IS-SEG02000. MOVE BUILD-SEGMENT-AREA TO SEG02000-INSERT-AREA. MOVE BUILD-SEGMENT-AREA TO KEY-VALUE-02000. MOVE SPACE TO BEGIN-OP-02000. CALL 'CBLTDLI' USING DL1-FUNCTION, PCB-AREA-1, SEG02000-INSERT-AREA, SEG00010-SSA, SEG02000-SSA. MOVE '(' TO BEGIN-OP-02000. IF STATUS-CODES NOT = SPACES, GO TO SEGMENT-INSERT-ERROR. GO TO WRITE-SEGMENT-EXIT. SEGMENT-IS-SEG02200. MOVE BUILD-SEGMENT-AREA TO SEG02200-INSERT-AREA. MOVE BUILD-SEGMENT-AREA TO KEY-VALUE-02200. MOVE SPACE TO BEGIN-OP-02200. CALL 'CBLTDLI' USING DL1-FUNCTION, PCB-AREA-1, SEG02200-INSERT-AREA, SEG00010-SSA, SEG02000-SSA, SEG02200-SSA. MOVE '(' TO BEGIN-OP-02200. IF STATUS-CODES NOT = SPACES, GO TO SEGMENT-INSERT-ERROR. GO TO WRITE-SEGMENT-EXIT. SEGMENT-IS-SEG02300. MOVE BUILD-SEGMENT-AREA TO SEG02300-INSERT-AREA. MOVE BUILD-SEGMENT-AREA TO KEY-VALUE-02300. MOVE SPACE TO BEGIN-OP-02300. CALL 'CBLTDLI' USING DL1-FUNCTION, PCB-AREA-1, SEG02300-INSERT-AREA, SEG00010-SSA, SEG02000-SSA, SEG02300-SSA. MOVE '(' TO BEGIN-OP-02300. IF STATUS-CODES NOT = SPACES, GO TO SEGMENT-INSERT-ERROR. GO TO WRITE-SEGMENT-EXIT. WRITE-SEGMENT-EXIT. EXIT. SEGMENT-INSERT-ERROR. DISPLAY 'SEGMENT ' PREV-SEG-NAME ' INSERT ERROR, ' ' STATUS CODE= ' STATUS-CODES UPON CONSOLE. GO TO WRITE-SEGMENT-EXIT. END-INP-FILE. CLOSE INPUT-FILE. PERFORM WRITE-BUILT-SEGMENT THRU WRITE-SEGMENT-EXIT. DISPLAY 'END DB LOAD' UPON CONSOLE. LOCKED-HALT. GOBACK. DFSSAM01 - Load PSB source for database DI21PART :- TITLE 'SAMPLE PROBLEM PSB' 00010000 * 00020000 **************************************************************@SCPYRT** 00040000 * * 00041000 * Licensed Materials - Property of IBM * 00042000 * * 00043000 * "Restricted Materials of IBM" * 00044000 * * 00045000 * 5695-176 (C) Copyright IBM Corp. 1974,1989 * 00046000 * * 00047000 **************************************************************@ECPYRT** 00140000 * * 00160000 * CHANGES: * 00170000 * APAR... ID PREREQ. DATE.... DESCRIPTION.................... * 00180000 * KNQ0115 01 11/17/91 ADD PCB LABEL FOR AIB INTERFACE * 00180010 * * 00190000 DBPCB01 PCB TYPE=DB,DBDNAME=DI21PART,PROCOPT=L,KEYLEN=43 00200000 SENSEG NAME=PARTROOT,PARENT=0 00210000 SENSEG NAME=STANINFO,PARENT=PARTROOT 00220000 SENSEG NAME=STOKSTAT,PARENT=PARTROOT 00230000 SENSEG NAME=CYCCOUNT,PARENT=STOKSTAT 00240000 SENSEG NAME=BACKORDR,PARENT=STOKSTAT 00250000 PSBGEN LANG=COBOL,PSBNAME=DFSSAM01 00260000 END 00270000 DI21PART - DBD Source for Database DI21PART :- * 00010000 **************************************************************@SCPYRT** 00020000 * * 00021000 * Licensed Materials - Property of IBM * 00022000 * * 00023000 * "Restricted Materials of IBM" * 00024000 * * 00025000 * 5695-176 (C) Copyright IBM Corp. 1974,1989 * 00026000 * * 00027000 **************************************************************@ECPYRT** 00028000 * 00029000 DBD NAME=DI21PART,ACCESS=(HISAM,VSAM) 00030000 DATASET DD1=DI21PART,DEVICE=3380,OVFLW=DI21PARO, X00040000 SIZE=(2048,2048),RECORD=(678,678) 00050000 SEGM NAME=PARTROOT,PARENT=0,BYTES=50,FREQ=250 00060000 FIELD NAME=(PARTKEY,SEQ),TYPE=C,BYTES=17,START=1 00070000 SEGM NAME=STANINFO,PARENT=PARTROOT,BYTES=85,FREQ=1 00080000 FIELD NAME=(STANKEY,SEQ),TYPE=C,BYTES=2,START=1 00090000 SEGM NAME=STOKSTAT,PARENT=PARTROOT,BYTES=160,FREQ=2 00100000 FIELD NAME=(STOCKEY,SEQ),TYPE=C,BYTES=16,START=1 00110000 SEGM NAME=CYCCOUNT,PARENT=STOKSTAT,BYTES=25,FREQ=1 00120000 FIELD NAME=(CYCLKEY,SEQ),TYPE=C,BYTES=2,START=1 00130000 SEGM NAME=BACKORDR,PARENT=STOKSTAT,BYTES=75,FREQ=0 00140000 FIELD NAME=(BACKKEY,SEQ),TYPE=C,BYTES=10,START=1 00150000 DBDGEN 00160000 FINISH 00170000 END 00180000 DI21PART - Load Data for database DI21PART :- PARTROOT 02AN960C10 WASHER 001A STANINFO 02 742 1200 14 002A 06C 002B STOKSTAT 00 AA16511 000000000 EACH000000000000000000 003A 512 0000000{0000131{0000015{0000020{0000126{0000104{00000003B 0000000000{0000000{0 Z512N 003C STOKSTAT 00 AK2877F M000000000 EACH000000000000270000 004A 360 0000000{0000088{0000000{0000000{000008800000037000000004B 0000000000{0000000{0 Z360N 004C STOKSTAT 0028009126 000000000 EACH 00000000000000000005A 0000513517517S000000000000630{0000000{0000015{0000680{0001053{00001005B 04{000000000000000{0 494Y 005C PARTROOT 02CK05CW181K CAPACITOR 006A STANINFO 02 742 1200 82 007A 06C 007B STOKSTAT 00 VF52906 000001000 EACH000000000000400000 008A 245 0000000{0000000{0000000{0000000{000000000000002000000008B 0800000000{0000000{0 H245N 008C STOKSTAT 0025900326 000000340 000000 009A 510510S000000000001320{000000000000660{0000660{0000000000000009B 00000000000000000000 \ 009C STOKSTAT 0025910926 000000340 000000 010A 510510S000000000000008{000000000000000{0000008{0000000000000010B 00000000000000000000 \ 010C PARTROOT 02CSR13G104KL KR1J50KS 011A STANINFO 02 742 1200 82 012A 06C 012B STOKSTAT 00 DB7455R M000002710 EACH000000000000000000 013A 485 0000000{0000014{0000000{0000000{000001400000006000000013B 0000000000{0000000{0 V485N 013C STOKSTAT 00 SK21713 M000002710 EACH000000000000000000 014A 260 0000000{0000004{0000000{0000000{000000400000002000000014B 0000000000{0000000{0 V260N 014C STOKSTAT 0025502526 000000000 008000 015A 472472S000000000000014{0000000{000000000000014{0000050{00000015B 04{00000000000000000 \ 015C PARTROOT 02JAN1N976B DIODE CODE-A 016A STANINFO 02 742 1200 72 017A 06C 017B STOKSTAT 0025509126 000000000 004000 018A 513515S000000000000017{0000000{000020000000017{0000068{00000018B 03{00000000000000000 513\ 018C BACKORDR 30PR237942 019A 2000 019B PARTROOT 02MS16995-28 SCREW 020A STANINFO 02 742 1200 14 021A 06C 021B STOKSTAT 00 AA16511 000000152 EACH000000000000000000 022A 489495N0000000{0000026{0000000{0000000{0000030{0000003{00000022B 0000000000{0000000{0 V489N 022C STOKSTAT 00 BA16515 000000069 EACH000000000000000000 023A 455 0000000{0000006{0000000{0000000{000000800000000000000023B 0000000000{0000000{0 V455N 023C STOKSTAT 00 FF5546D M00000006I EACH000000000000000000 024A 448 0000000{0000044{0000000{0000000{000004300000000000000024B 0000000000{0000006{0 V448N 024C STOKSTAT 0025910926 000006980 000000 025A 497498S000000000000095{0000000{0000000{0000100{0000000000000025B 00000000000000000000 Y 025C PARTROOT 02N51P3003F000 SCREW 026A STANINFO 02 742 1200 14 027A 03{ 027B STOKSTAT 0025906026 000000000 00000000 00000000000000000028A 0000 404404S000000000000313{0000000{0000000{0000360{0001209{00000028B 00{000000000000000{0 028C CYCCOUNT 2000003600 00003600 029A PARTROOT 02RC07GF273J RESISTOR 030A STANINFO 02 742 1200 02 031A 06C 031B STOKSTAT 00 AK24527 000000240 EACH000000000000000000 032A 213 0000000{0000033{0000000{0000000{000003300000001000000032B 0000000000{0000000{0 V213N 032C STOKSTAT 0028009126 000000000 00000000 00000000000000000033A 0000516517517S000000000000017{0000000{0000000{0000017{0000057{00000033B 00{000000000000000{1 485Y 033C CYCCOUNT 2000000190 0000017{ 034A STOKSTAT 0028011126 000000000 012000 035A 459459S000000000000026{0000000{000000000000026{0000240{00000035B 29{00000000000000000 \ 035C PARTROOT 02106B1293P009 RESISTOR 036A STANINFO 02 742 1200 02 037A 10{ 037B STOKSTAT 0025900326 000000000 00000000 007005 0000000000038A 0000393491494S000000000001055{0000200{0000000{0001055{0004780{00000038B 22{000000000000000{0 038C STOKSTAT 0025906026 000000000 00000000 00000000000000000039A 0000 293 000000000000000{00000000000000000000000{0001808{00000039B 01{000000000000104{0 039C STOKSTAT 0025910926 000001820 000000 040A 482483S000000000000320{0000000{0000020{0000320{0000000000000040B 00000000000000000000 \ 040C PARTROOT 02250236-001 CAPACITOR 041A STANINFO 02 742 1200 82 042A 04{ 042B STOKSTAT 0025900326 000000000 00000000 007010 0000000000043A 0000393488488S000000000000410{0000200{0000600{0000010{0000567{00000043B 38{000000000000000{0 488Y 043C BACKORDR 30PR265943 044A 1000 044B BACKORDR 30PR347921 045A 2000 045B BACKORDR 30PR426134 046A 3000 046B STOKSTAT 0025906026 000000000 00000000 00100000000000000047A 0000 448440S000000000000000{00000000000000000000000{0000551{00000047B 10{000000000000000{0 047C STOKSTAT 0025910926 000003670 000000 048A 517518S000000000000072{0000000{0000000{0000072{0000045{00000048B 00000000000000000000 517Y 048C PARTROOT 02250239 TRANSISTOR 049A STANINFO 02 742 1200 02 050A 05B 050B STOKSTAT 0025910926 000006500 004000 051A 517518S000000000000068{0000000{0000001{0000067{0000045{00000051B 02{00000000000000000 517Y 051C PARTROOT 02250241-001 CONNECTOR 052A STANINFO 02 742 1200 42 053A 04{ 053B PARTROOT 02250794 RESISTOR 054A STANINFO 02 742 1200 02 055A 10{ 055B STOKSTAT 0025900326 000000000 00000000 005005 0000000000056A 0000393488488S000000000000003{0000000{0000000{0000003{0001176{00000056B 64{000000000000000{0 488Y 056C STOKSTAT 0025906026 000000000 00000000 00000000000000000057A 0000 448440N000000000000000{00000000000000000000000{0001229{00000057B 80{000000000000000{0 057C STOKSTAT 0025910926 000001740 000000 058A 517518S000000000000390{0000000{0000000{0000381{0000180{00000058B 00000000000000000000 517Y 058C PARTROOT 02250796 SWITCH 059A STANINFO 02 222 1200 54 060A 06{ 060B STOKSTAT 0025906026 000000000 00000000 00000000000000000061A 0000 446446S000000000000001{00000000000000000000001{0000062{00000061B 02{000000000000023{0 061C STOKSTAT 0025910926 000015350 000000 062A 512513S000000000000020{0000000{0000010{0000005{0000000000000062B 00000000000000000000 \ 062C PARTROOT 02250891 SERVO VALVE 063A STANINFO 02 742 1200 16 064A 06C 064B STOKSTAT 0025906026 000000000 00000000 01400000000000000065A 0000 446446O000000000000004{0000000{0000004{0000000{0000536{00000065B 73{000000300000029{0 065C STOKSTAT 0025910926 000395000 000000 066A 509440K000000000000235{0000000{0000180{0000055{0000005{00000066B 00000000000000000000 509\ 066C PARTROOT 02252252-003 COUPLING 067A STANINFO 02 742 1200 16 068A 06C 068B STOKSTAT 0025900326 000000000 000000 069A 485485O000000000000092{0000005{0000092{000000000000000000000069B 00000000000000000000 Y 069C STOKSTAT 0025906026 000000000 00000000 00700000000000000070A 0000 448404S000000000000000{0000000{0000000{0000010{0000832{00000070B 87{000005300000460{0 070C STOKSTAT 0025910926 000016450 000000 071A 507507S000000000000076{0000005{0000010{0000076{0000008{00000071B 00000000000000000000 503\ 071C PARTROOT 023003802 CHASSIS 072A STANINFO 02 222 1200 34 073A 06{ 073B STOKSTAT 0025900326 000007900 000000 074A 494494S000000000000005{0000000{0000000{0000005{0000173{00000074B 00000000000000000000 494\ 074C STOKSTAT 0025906026 000000000 00000000 01700000000000000075A 0000 293 000000000000000{00000000000000000000000{0001198{00000075B 04{000000000000000{0 075C STOKSTAT 0025910926 000007900 000000 076A 517518S000000000000004{0000000{0000000{0000004{0000036{00000076B 00000000000000000000 517\ 076C PARTROOT 023003806 SWITCH 077A STANINFO 02 742 1200 54 078A 06C 078B STOKSTAT 0025900326 000011263 024000 079A 518518S000000000000090{0000005{0000012{0000041{0000300{00000079B 72{0000127{000000000 515Y 079C BACKORDR 30SO536609 B3404 36609 080A 1110 080B BACKORDR 30SO536610 B3404 36610 081A 0160 081B STOKSTAT 0025906026 000000000 00000000 00200000000000000082A 0000 404 000000000000000{00000000000000000000000{0001754{00000082B 52{000015500000455{0 082C STOKSTAT 0025910926 000006620 100000 083A 517518S000000000000004{0000002{0000000{0000004{0000036{00000083B 36{00000000000000000 517\ 083C PARTROOT 023007228 HOUSING 084A STANINFO 02 222 1200 34 085A 04{ 085B STOKSTAT 0025906026 000000000 00000000 00000000000000000086A 0000 448448N000000000000010}00000000000000000000010}0000125{00000086B 11{000000000000013{0 086C STOKSTAT 0025910926 000012000 000000 087A 498498S000000000000013{0000000{0000000{0000013{0000006{00000087B 00000000000000000000 498\ 087C PARTROOT 023008027 CARD FRONT 088A STANINFO 02 46A 7246 84 089A 02F 089B STOKSTAT 0025906026 000000000 00000000 01600000000000000090A 0000 346 000000000000001{00000000000000000000001{0000044{00000090B 07{000000000000029{0 090C STOKSTAT 0025910926 000000000 000000 091A 459459K000000000000003{0000000{0000003{000000000000000000000091B 00000000000000000000 \ 091C PARTROOT 023009228 CAPACITOR 092A STANINFO 02 742 1200 82 093A 06C 093B STOKSTAT 0025900326 000000000 000000 094A 500500D000000000000001{0000009{000001000000001{0000014{00000094B 00{00000000000000000 Y 094C STOKSTAT 0025906026 000000000 00000000 01300000000000000095A 0000 476476N000000000000011{00000000000000000000001{0000083{00000095B 11{000000000000002{0 095C PARTROOT 023009270 HOUSING 096A STANINFO 02 222 1200 18 097A 04{ 097B STOKSTAT 0025906026 000000000 00000000 00500000000000000098A 0000 448 000000000000000{00000000000000000000000{0000044{00000098B 04{000000000000000{0 098C STOKSTAT 0025910926 000000000 000000 099A 448448K000000000000002{0000002{000000200000002{0000000000000099B 00000000000000000000 \ 099C PARTROOT 023009280 HOUSING CONV 100A STANINFO 02 222 1200 18 101A 04{ 101B STOKSTAT 0025910926 000293500 000000 102A 513452K000000000000002{0000000{0000000{0000002{0000000000000102B 00000000000000000000 \ 102C PARTROOT 023013405-002 MOUNTING 103A STANINFO 02 22 646 104A 000 104B STOKSTAT 0025900326 000000000 00000000 00400000000000000105A 0000393500484S000000000000000{0000000{0000000{0000000{0000720{00000105B 27{000000000000047{0 105C STOKSTAT 0025906026 000000000 00000000 00300000000000000106A 0000 328 000000000000000{00000000000000000000000{0000560{00000106B 14{000000000000540{0 106C STOKSTAT 0025910926 000029650 000000 107A 518518S000000000000001{0000004{0000003{0000001{0000008{00000107B 00{00000000000000000 518Y 107C PARTROOT 023013412 COVER 108A STANINFO 02 222 1200 66 109A 06{ 109B STOKSTAT 0025906026 000000000 00000000 00200000000000000110A 0000 448440S000000000000012{0000005{0000020{0000000{0000400{00000110B 36{000002300000426{0 110C STOKSTAT 0025910926 000012100 000000 111A 512512S000000000000047{0000010{0000005{0000047{0000017{00000111B 00000000000000000000 512\ 111C PARTROOT 023013429-001 COVER ASSY 112A STANINFO 02 222 1200 66 113A 06{ 113B STOKSTAT 0025906026 000000000 00000000 00100000000000000114A 0000380448440N000000000000000{00000000000000000000000{0000394{00000114B 03{000000000000005{0 114C STOKSTAT 0025910926 000003700 000000 115A 513513S000000000000000{0000000{0000075{0000083{0000009{00000115B 00000000000000000000 513\ 115C PARTROOT 023013460-001 CAPACITOR 116A STANINFO 02 742 1200 82 117A 04{ 117B STOKSTAT 0025900326 000000000 00000000 006005 0000000000118A 0000393478478D000000000000004{0000005{000000000000004{0002915{00000118B 73{000000000000000{0 118C STOKSTAT 0025906026 000000000 00000000 00000000000000000119A 0000 448440N000000000000010{0000000{0000000{0000000{0002248{00000119B 27{000000000000007{0 119C STOKSTAT 0025910926 000001530 000000 120A 514515O000000000000349{0000000{0000255{0000094{0000108{00000120B 00000000000000000000 514Y 120C PARTROOT 023013548-002 CHASSIS 121A STANINFO 02 222 1200 34 122A 09{ 122B STOKSTAT 0025900326 000000000 00000000 001005 0000000000123A 0000393493460D000000000000000{0000000{0000000{0000000{0001186{00000123B 11{000000000000000{0 Y 123C STOKSTAT 0025906026 000000000 00000000 00000000000000000124A 0000 293 000000000000020{00000000000000000000000{0000498{00000124B 01{000000000000505{0 124C STOKSTAT 0025910926 000000000 000000 125A 512512K000000000000002{0000000{0000002{000000000000000000000125B 00000000000000000000 \ 125C PARTROOT 0256134-016 NAS671C1 NUT 126A STANINFO 02 742 1200 14 127A 03{ 127B STOKSTAT 0025900326 000003033 00000000 004010 0000000000128A 0000393493495S000000000000886{0000200{0000000{0000886{0002376{00000128B 86{000000000000000{0 128C STOKSTAT 0025906026 000000000 00000000 00400000000000000129A 0000 447447S000000000000014{00000000000000000000014{0000904{00000129B 46{000000000000000{0 129C STOKSTAT 0025910926 000000000 000000 130A 461461S000000000000115{0000010{0000000{0000115{0000000000000130B 00000000000000000000 \ 130C CYCCOUNT 2000001100 00001150 131A PARTROOT 0260003-118 7734304P8661T0 RES 132A STANINFO 02 742 1200 02 133A 10{ 133B STOKSTAT 0025900326 000000000 00000000 020010 0000000000134A 0000393488488S000000000000006{0000000{0000000{0000006{0000644{00000134B 26{000000000000000{0 488Y 134C STOKSTAT 0025906026 000000000 00000000 00000000000000000135A 0000 448 000000000000000{00000000000030000000000{0002190{00000135B 39{000000000000081{0 135C STOKSTAT 0025910926 000000130 000000 136A 518518S000000000000648{0000000{0000021{0000627{0000091{00000136B 00000000000000000000 518Y 136C PARTROOT 02652540-002 WIRE WRAP 137A STANINFO 02 222 1200 42 138A 04{ 138B STOKSTAT 0027909126 000000000 00000000 00000000000000000139A 0000 460 000000000000060{00000200000000000000000{0000012{00000139B 00{000000000000000{0 139C STOKSTAT 0028009126 000000000 000000 140A 514515O000000000000012{0000000{0000012{0000000{0000000000000140B 12{00000000000000000 Y 140C PARTROOT 02652799 PULSE TRANSFORMER 141A STANINFO 02 101 8800 142A 04{ 142B STOKSTAT 0028009126 000000000 00000000 00000000000000000143A 0000 514515S000000000000004{0000000{0000001{0000003{0000008{00000143B 00{000000000000000{0 493Y 143C PARTROOT 0268663-102 CM05C100K03 144A STANINFO 02 742 1200 82 145A 06C 145B STOKSTAT 0025906026 000000000 00000000 00100000000000000146A 0000384448440S000000000000000{000000000000050{0000000{0001186{00000146B 09{000000000000056{0 146C STOKSTAT 0025910926 000000000 000000 147A 518518S000000000000232{0000052{0000075{0000232{0000031{00000147B 00000000000000000000 518\ 147C PARTROOT 0268663-104 CM05D200J03 148A STANINFO 02 742 1200 82 149A 06C 149B STOKSTAT 0025906026 000000000 00000000 00100000000000000150A 0000 448 000000000000015{000000700000023{0000000{0000394{00000150B 05{000000000000000{0 150C STOKSTAT 0025910926 000000000 000000 151A 513513S000000000000095{0000015{0000000{0000095{0000009{00000151B 00000000000000000000 513\ 151C PARTROOT 0269857-635 CP09A1KE153K3 CAPAC 152A STANINFO 02 742 1200 82 153A 06C 153B STOKSTAT 0025906026 000000000 00000000 00200000000000000154A 0000 448400S000000000000000{0000000{0000000{0000200{0000394{00000154B 16{000000000000011{0 154C STOKSTAT 0025910926 000000500 000000 155A 515515O000000000000093{0000000{0000050{0000052{0000009{00000155B 00000000000000000000 515\ 155C PARTROOT 027060654P001 ELE TUBE 156A STANINFO 02 742 1200 10 157A 06C 157B STOKSTAT 0025906026 000000000 00000000 00300000000000000158A 0000 446 000000000000000{00000000000000000000000{0000400{00000158B 12{000000000000003{0 158C STOKSTAT 0025910926 000100000 000000 159A 515517O000000000000038{0000000{0000002{0000036{0000004{00000159B 00000000000000000000 515\ 159C PARTROOT 027438995P002 NUT 160A STANINFO 02 742 1200 14 161A 03{ 161B STOKSTAT 0025900326 000000000 00000000 000005 0000000000162A 0000 440440S000000000001736{00000000000000000002512{0000443{00000162B 00{000000000000000{0 162C STOKSTAT 0025906026 000000000 00000000 00000000000000000163A 0000 296 000000000000017{00000000000000000000033{0000880{00000163B 00{000000000000015{0 163C PARTROOT 027454949P001 LAMP HOLDER 164A STANINFO 02 742 1200 82 165A 06C 165B STOKSTAT 0025900326 000006168 046000 166A 518518S000000000000061{0000000{0000040{0000024{0000173{00000166B 80{00000000000000000 505\ 166C STOKSTAT 0025906026 000000000 00000000 02200000000000000167A 0000 293 000000000000000{00000000000000000000003{0001301{00000167B 88{000010900000065{0 167C STOKSTAT 0025910926 000005860 000000 168A 517518S000000000000004{0000000{0000000{0000004{0000036{00000168B 00000000000000000000 517\ 168C PARTROOT 027618032P101 CAPACITOR 169A STANINFO 02 742 1200 82 170A 04{ 170B STOKSTAT 0025900326 000001001 00000000 006005 0000000000171A 0000393491492S000000000000013{0000009{0000000{0000013{0002601{00000171B 49{000000000000000{0 485Y 171C BACKORDR 30PR1493291303603 0485 B2446 3013609-001 172A 0010 172B BACKORDR 30PR1493761303603 0485 B2446 3013609-001 173A 0010 173B BACKORDR 30PR1530961303603 0485 B2449 3013609-001 174A 0010 174B BACKORDR 30PR1530981303603 0485 B2451 3013609-001 175A 0010 175B BACKORDR 30PR1695661303603 0485 B2484 3013609-001 176A 0050 176B STOKSTAT 0025906026 000000000 00000000 00200000000000000177A 0000 363 000000000000000{00000000000000000000000{0000952{00000177B 18{000000000000119{0 177C STOKSTAT 0025910926 000000000 000000 178A 454454O000000000000022{0000000{0000022{000000000000000000000178B 00000000000000000000 \ 178C PARTROOT 027618289P049 CIRCUIT BREA 179A STANINFO 02 742 1200 06 180A 06C 180B STOKSTAT 0025906026 000000000 00000000 00000000000000000181A 0000 450 000000000000015{00000000000000000000017{0000033{00000181B 03{000000000000001{0 181C STOKSTAT 0025910926 000000000 000000 182A 498498O000000000000002{0000000{0000001{0000001{0000002{00000182B 00000000000000000000 498\ 182C PARTROOT 027630843P513 RESISTOR 183A STANINFO 02 742 1200 02 184A 06C 184B STOKSTAT 0025900326 000000000 00000000 00000000000000000185A 0000 338 000000000000002}00000000000000000000002}0000000{00000185B 00{000000000000002{0 185C STOKSTAT 0025906026 000000000 00000000 00100000000000000186A 0000 448442S000000000000000{000000000000000{0000000{0009555{00000186B 99{000000000000080{0 186C STOKSTAT 0025910926 000000000 000000 187A 518518O000000000001403{0000000{0000300{0001203{0000858{00000187B 00000000000000000000 518Y 187C PARTROOT 027736847P001 TRANSFORMER 188A STANINFO 02 742 1200 98 189A 10{ 189B STOKSTAT 0025900326 000000000 00000000 000003 0000000000190A 0000393511511S000000000000179{0000001{0000150{0000040{0001417{00000190B 05{0000089{0000128{0 190C BACKORDR 30PR135640 0485 B3323 0000A3564{448506-100 191A 1500 191B STOKSTAT 0025906026 000000000 00000000 00500000000000000192A 0000 357 000000000000005{00000000000000000000005{0000430{00000192B 20{000003300000040{0 192C STOKSTAT 0025910926 000015100 000000 193A 495497K000000000000010{0000000{0000000{0000010{0000000000000193B 00{00000000000000000 \ 193C PARTROOT 02803008035 GASKET 194A STANINFO 02 222 1200 84 195A 04{ 195B STOKSTAT 0025906026 000000000 00000000 00600000000000000196A 0000 293 000000000000049{00000000000002000000019{0000176{00000196B 11{000000000000000{0 196C STOKSTAT 0025910926 000002580 000000 197A 510510S000000000000012{0000000{0000000{0000012{0000008{00000197B 00000000000000000000 510\ 197C PARTROOT 0282124-056 RN60C3161F 198A STANINFO 02 742 1200 02 199A 10{ 199B STOKSTAT 0025900326 000000000 00000000 000007 0000000000200A 0000393488488S000000000000008{0000000{0000000{0000008{0001176{00000200B 02{000000000000028{0 488Y 200C STOKSTAT 0025910926 000000000 000000 201A 517518S000000000000322{0000000{0000000{0000340{0000190{00000201B 00000000000000000000 517Y 201C PARTROOT 0282124-640 RN65C9092F 202A STANINFO 02 742 1200 02 203A 04B 203B STOKSTAT 0025900326 000000000 000000 204A 494494D000000000000000{0000000{0000000{0000000{0000008{00000204B 00000000000000000000 494Y 204C STOKSTAT 0025906026 000000000 00000000 00000000000000000205A 0000 402 000000000000000{00000000000000000000000{0000075{00000205B 03{000000000000000{0 205C PARTROOT 0282125-869 RN75C8252F 206A STANINFO 02 742 1200 02 207A 06C 207B STOKSTAT 0025906026 000000000 00000000 00100000000000000208A 0000 446 000000000000100{00000000000000000000050{0000424{00000208B 03{000000000000013{0 208C STOKSTAT 0025910926 000000780 000000 209A 513513S000000000000090{0000000{0000000{0000090{0000060{00000209B 00000000000000000000 513\ 209C PARTROOT 0284353-456 RW67V472 210A STANINFO 02 742 1200 211A 06C 211B STOKSTAT 0025900326 000000000 00000000 00200000000000000212A 0000 479479S000000000000280{0000000{0000200{0000110{0000165{00000212B 03}000000000000004{0 212C STOKSTAT 0025910926 000000000 000000 213A 509517S000000000000009{0000000{0000000{0000009{0000012{00000213B 00{00000000000000000 509Y 213C PARTROOT 0290-3033334 BONDED ASSY 214A STANINFO 02 41A 7236 215A 01D 215B STOKSTAT 0028009126 000000000 003000 216A 514515S000000000000010{0000000{0000014{0000001{0000032{00000216B 01{00000000000000000 503Y 216C PARTROOT 0290-3033665 BONDED ASSY 217A STANINFO 02 41A 7219 218A 015 218B STOKSTAT 0028009126 000000000 000000 219A 514515O000000000000024{0000000{0000024{0000000{0000048{00000219B 00000000000000000000 482Y 219C PARTROOT 02905537-384 CAPACITOR 220A STANINFO 02 742 1200 221A 06C 221B STOKSTAT 0028002526 000000000 002000 222A 497461461S000000000000004{0000000{0000000{0000004{0000050{00000222B 01{00000000000000000 \ 222C STOKSTAT 0028009126 000000000 000000 223A 514444D000000000000000{0000000{00000000000000000000000000000223B 00000000000000000000 Y 223C PARTROOT 02906028-040 CAPACITOR 224A STANINFO 02 742 1200 82 225A 06C 225B STOKSTAT 0028009126 000000000 00000000 00700000000000000226A 0000 513515S000000000000024{0000000{0000020{0000004{0000028{00000226B 02{000000000000000{0 Y 226C PARTROOT 02907021-782 CAPACITOR 227A STANINFO 02 742 1200 82 228A 06C 228B STOKSTAT 0028009126 000001700 00000000 00600000000000000229A 0000 517517O000000000000008{0000000{0000005{0000003{0000018{00000229B 01{000000000000000{0 503Y 229C PARTROOT 02922294-002 CONNECTOR 230A STANINFO 02 742 1200 42 231A 06C 231B STOKSTAT 00 TF3467A M000003390E EACH000000000000000000 232A 467 0000000{0000000{0000000{0000000{000000000000000000000232B 0100000000{0000000{0 V467N 232C STOKSTAT 00 TF5877N M000012540 EACH000000000000000000 233A 467 0000000{0000001{0000015{0000000{000000100000000000000233B 0000000000{0000000{0 V467N 233C STOKSTAT 0028009026 000000000 00000000 02000000000000000234A 0000452476476S000000000000001{00000000000000000000001{0000015{00000234B 03}000000000000003{0 234C STOKSTAT 0028009126 000000000 00000000 00000000000000000235A 0000 514515S000000000000017{0000000{0000000{0000007{0000030{00000235B 00{000000000000000{0 Y 235C PARTROOT 02922399-001 CONNECTOR 236A STANINFO 02 742 1200 237A 06C 237B STOKSTAT 0028009126 000011430 005000 238A 517517S000000000000006{0000000{0000005{0000005{0000019{00000238B 01{00000000000000000 507Y 238C PARTROOT 02925363-136 DIODE ZENER 239A STANINFO 02 742 1200 72 240A 06C 240B STOKSTAT 0028009126 000000000 00000000 00700000000000000241A 0000 514515D000000000000005{0000030{0000004{0000001{0000030{00000241B 02{000000000000000{0 Y 241C BACKORDR 30PR729437 242A 0040 242B PARTROOT 02925380-101 DIODE 243A STANINFO 02 74 172 244A 000 244B PARTROOT 02930331-102 FILTER 245A STANINFO 02 816 0000 246A 00{ 246B STOKSTAT 0028009126 000000000 00000000 00000000000000000247A 0000 514515S000000000000008{0000000{0000004{0000004{0000025{00000247B 00{000000000000000{0 488Y 247C PARTROOT 02930331-123 FILTER 248A STANINFO 02 816 0000 249A 00{ 249B STOKSTAT 0028009126 000000000 00000000 00000000000000000250A 0000 514515S000000000000008{0000000{0000005{0000003{0000025{00000250B 00{000000000000000{0 487Y 250C PARTROOT 02930333-001 DISCRIMINATO 251A STANINFO 02 816 0000 252A 00{ 252B STOKSTAT 0028009126 000000000 00000000 01300000000000000253A 0000 514515O000000000000002{0000000{0000002{0000000{0000008{00000253B 01{000000000000001{0 Y 253C PARTROOT 02946325-086 PIN 254A STANINFO 02 742 1200 16 255A 06C 255B STOKSTAT 00 BF34674 M000000890 EACH000000000000000000 256A 376 0000000{0001313{0000000{0000000{000111300000000000000256B 0000000000{0000000{0 V376N 256C STOKSTAT 00 VF34610 M000000000 EACH000000000000000000 257A 170 0000000{000005750000000{0000000{000005900000000000000257B 0000000000{0000000{0 V170N 257C STOKSTAT 0028009026 000000000 00000000 85000000000000000258A 0000452481452S000000000000000{00000000000000000000000{0000004{00000258B 74{000000000001010{0 258C STOKSTAT 0028009126 000000000 00000000 05000000000000000259A 0000 514515S000000000000008{0000000{0000000{0000008{0000016{00000259B 08{000000000000000{0 493Y 259C PARTROOT 02950060-006 RELAY 260A STANINFO 02 742 1200 96 261A 06C 261B STOKSTAT 0028009126 000015300 00000000 00000000000000000262A 0000 517518S000000000000009{0000000{0000000{0000009{0000027{00000262B 00{000000000000000{0 483Y 262C PARTROOT 02954017-001 RESISTOR 263A STANINFO 02 742 1200 02 264A 06C 264B STOKSTAT 00 JF3467A M000002525 EACH000000000000000000 265A 907 0000000{0000006{0000000{0000000{000000600000003000000265B 0000000000{0000000{0 V907N 265C STOKSTAT 00 TF3467A M000010000E EACH000000000000000000 266A 401 0000000{0000000{0000000{0000000{000000000000000000000266B 0000000000{0000003{0 V401N 266C STOKSTAT 00 TF5877N M000002525 EACH000000000000000000 267A 474 0000000{0000002{0000000{0000000{000000200000001000000267B 0000000000{0000000{0 V474N 267C STOKSTAT 0028009126 000000000 00000000 00000000000000000268A 0000 514515S000000000000004{0000000{0000003{0000001{0000008{00000268B 00{000000000000000{0 486Y 268C PARTROOT 02958007-180 RESISTOR 269A STANINFO 02 742 1200 02 270A 06C 270B STOKSTAT 0028009126 000000650 00000000 00500000000000000271A 0000 517517S000000000000046{0000000{0000000{0000039{0000021{00000271B 01{000000000000000{0 Y 271C PARTROOT 02960528-067 RESISTOR 272A STANINFO 02 742 1200 02 273A 06C 273B STOKSTAT 00 DF34671 M000007000 EACH000000000000030000 274A 140 0000000{0000000{0000000{0000000{000000000000010000000274B 0300000000{0000000{0 V140N 274C STOKSTAT 0028009026 000000000 00000000 10000000000000000275A 0000452481479N000000000000000{000000000000000{0000000{0000003{00000275B 03{000000000000003{0 275C STOKSTAT 0028009126 000008230 00000000 10400000000000000276A 0000 517517O000000000000009{0000000{0000005{0000004{0000027{00000276B 28{000000000000000{0 505Y 276C PARTROOT 02968534-001 SOCKET 277A STANINFO 02 742 1200 16 278A 06C 278B STOKSTAT 0028009126 000050000 00000000 02900000000000000279A 0000 514515S000000000000008{0000000{0000003{0000005{0000007{00000279B 02{000000000000000{0 Y 279C PARTROOT 02974810-010 THERMOSTAT 280A STANINFO 02 742 1200 16 281A 06C 281B STOKSTAT 0028002526 000013250 00000000 00700000000000000282A 0000495516517S000000000000006{0000000{0000000{0000006{0000057{00000282B 04{000000000000000{0 516 282C STOKSTAT 0028009126 000009750 007000 283A 517517S000000000000021{0000000{0000005{0000016{0000014{00000283B 01{00000000000000000 Y 283C PARTROOT 02975105-001 TRANSFORMER 284A STANINFO 02 742 1200 16 285A 06C 285B STOKSTAT 0028009126 000106000 024000 286A 514515S000000000000029{0000000{0000001{0000028{0000021{00000286B 05{00000000000000000 Y 286C PARTROOT 02989036-001 TRANSFORMER 287A STANINFO 02 742 1200 96 288A 06C 288B STOKSTAT 0028009126 000019300 112000 289A 517517O000000000000007{0000000{0000004{0000003{0000017{00000289B 19{00000000000000000 Y 289C