DDDDDD M M SSSS BBBBBBB UU UU IIIIII LL DDDDDD DDDDDDDD MM MM SSSSSS BBBBBBBB UU UU IIIIII LL DDDDDDDD DD DD MMM MMM SS SS BB BB UU UU II LL DD DD DD DD MMMMMMMM SS BB BB UU UU II LL DD DD DD DD MM MM MM SS BBBBBBB UU UU II LL DD DD DD DD MM MM SS BBBBBBB UU UU II LL DD DD DD DD MM MM SS BB BB UU UU II LL DD DD DD DD MM MM SS SS BB BB UU UU II LL DD DD DDDDDDD MM MM SSSSSS BBBBBBBB UUUUUUU IIIIII LLLLLLLL DDDDDDD DDDDDD MM MM SSSS BBBBBBB UUU UU IIIIII LLLLLLLL DDDDDD 222 11 / 0000 6666 / 0000 8888 222222 111 // 00 00 666666 // 00 00 888888 22 22 111 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 8888 22 11 /// 00 00 666666 /// 00 00 888888 22 11 /// 00 00 666 66 /// 00 00 88 88 22 11 /// 00 00 66 66 /// 00 00 88 88 222222 1111 // 00 00 666666 // 00 00 888888 2222222 1111 / 0000 6666 / 0000 8888 0000 999 5555555 0000 0000 999 00 00 99999 5555555 00 00 00 00 99999 00 00 99 99 :: 55 00 00 :: 00 00 99 99 00 00 99 99 :: 55555 00 00 :: 00 00 99 99 00 00 99 999 55 55 00 00 00 00 99 999 00 00 99999 55 00 00 00 00 99999 00 00 99 :: 55 00 00 :: 00 00 99 00 00 99 99 :: 55 555 00 00 :: 00 00 99 99 00 00 99999 555555 00 00 00 00 99999 0000 999 5555 0000 0000 999 BBBBBBB EEEEEEEE GGGGGG IIIIII N NN BBBBBBBB EEEEEEEE GGGGGGGG IIIIII NN NN BB BB EE GG GG II NNN NN BB BB EE GG II NNNN NN BBBBBBB EEEEE GG II NN NN NN BBBBBBB EEEEE GG GGGG II NN NNNN BB BB EE GG GGGG II NN NNN BB BB EE GG GG II NN NN BBBBBBBB EEEEEEEE GGGGGGGG IIIIII NN NN BBBBBBB EEEEEEEE GGGGGGG IIIIII NN NN # PAGES = 501 # BUFFERS = 4 PAGESIZE = 256 XUI00 END OF DMS/90 PAGE INITIALIZER - DBINT /$ COMPILED BY UNIVAC SERIES 90 SCHEMA COMPILER VERSION 04/00 DATE 210608 TIME 09501000 -- SCHEMA DDL INPUT STATEMENT LISTING -- LINE SEQ. SOURCE STATEMENT IDENT. PAGE 1 000001 000100 SCHEMA DESCRIPTION. BLD00270 000002 000200 SCHEMA NAME VSBSCHEM. BLD00280 000003 000300 AUTHOR. W KRANTZ. BLD00290 000004 000400 DATE. 10/11/74. BLD00300 000005 000500 INSTALLATION. SOFTWARE DEVELOPMENT INTEGRITY BLD00310 000006 000600 SPERRY UNIVAC BLD00320 000007 000700 P O BOX 500 BLD00330 000008 000800 BLUE BELL, PA 19422. BLD00340 000009 000900 REMARKS. MINIMUM SCHEMA FOR VSB (VERIFICATION OF SYSTEM BUILD) BLD00350 000010 001000 SEQUENCE. BLD00360 000011 001300 AREA DESCRIPTION. BLD00370 000012 001400 AREA NAME THE-MINIMUM-AREA RANGE 500 500. BLD00380 000013 001500 RECORD DESCRIPTION. BLD00390 000014 001600 RECORD NAME A-MINIMUM-RECORD. BLD00400 000015 001700 RECORD ID 100. BLD00410 000016 001800 LOCATION MODE DIRECT. BLD00420 000017 001900 WITHIN THE-MINIMUM-AREA. BLD00430 000018 002000 02 F PIC X. BLD00440 000019 002100 RECORD NAME OWNR. BLD00450 000020 002200 RECORD ID 9999. BLD00460 000021 002300 LOCATION MODE CALC USING A-CALC-KEY-FIELD BLD00470 000022 002400 DUPLICATES NOT. BLD00480 000023 002500 WITHIN THE-MINIMUM-AREA. BLD00490 000024 002600 02 A-CALC-KEY-FIELD USAGE COMP-2. BLD00500 000025 002700 RECORD NAME M. BLD00510 000026 002800 RECORD ID 102. BLD00520 000027 002900 LOCATION MODE CALC USING SORT-FIELD BLD00530 000028 003000 DUPLICATES FIRST. BLD00540 000029 003100 WITHIN THE-MINIMUM-AREA. BLD00550 000030 003200 49 SORT-FIELD USAGE COMP-1. BLD00560 000031 003300 SET DESCRIPTION. BLD00570 000032 003400 SET NAME THE-RELATIONSHIP. BLD00580 000033 003500 ORDER SORTED. BLD00590 000034 003600 MODE CHAIN LINKED PRIOR. BLD00600 000035 003700 OWNER OWNR BLD00610 000036 003800 NEXT POSITION 1 BLD00620 000037 003900 PRIOR POSITION 2. BLD00630 000038 004000 MEMBER M BLD00640 000039 004100 OPTIONAL MANUAL LINKED OWNER BLD00650 000040 004200 NEXT POSITION 1 BLD00660 000041 004300 PRIOR POSITION 2 BLD00670 000042 004400 OWNER POSITION 3 BLD00680 000043 004500 ASCENDING SORT-FIELD DUPLICATES LAST. BLD00690 -- SCHEMA DDL INPUT STATEMENT LISTING -- END ---------- RANGE MAP LISTING ----------- PAGE 2 SCHEMA....................... VSBSCHEM 00000000 00000000 AREA............... THE-MINIMUM-AREA 00000500 00000500 RECORD... A-MINIMUM-RECORD 00000500 00000500 RECORD... OWNR 00000500 00000500 RECORD... M 00000500 00000500 ---------- RANGE MAP LISTING ----------- END ------ RECORD DESCRIPTION LISTING ------ PAGE 3 RECORD NAME........ A-MINIMUM-RECORD RLGTH=0004 RECORD ID.......... 0100 KLGTH=0000 LOCATION MODE.......DIRECT DLGTH=0004 WITHIN............. THE-MINIMUM-AREA FROM 00000500 THRU 00000500 DSTRT=0000 DATA ITEM.......... REDEFINES....... USAGE....... VALUE............................. PICTURE.................STRT LGTH 02 F DISPLAY X 0000 0001 02 FILLER DISPLAY XXX 0001 0003 RECORD NAME........ M RLGTH=0024 RECORD ID.......... 0102 KLGTH=0020 LOCATION MODE.......CALC USING SORT-FIELD DLGTH=0004 WITHIN............. THE-MINIMUM-AREA FROM 00000500 THRU 00000500 DSTRT=0020 DBKEY POSITIONS.... SET............. TYPE.. NEXT PRIOR OWNER CALC MEMBER THE-RELATIONSHIP MEMBER DATA ITEM.......... REDEFINES....... USAGE....... VALUE............................. PICTURE.................STRT LGTH 49 SORT-FIELD COMP-1 0020 0004 SET CONTROL ITEM FOR -------- CALC SET CONTROL ITEM FOR -------- THE-RELATIONSHIP RECORD NAME........ OWNR RLGTH=0024 RECORD ID.......... 9999 KLGTH=0016 LOCATION MODE.......CALC USING A-CALC-KEY-FIELD DLGTH=0008 WITHIN............. THE-MINIMUM-AREA FROM 00000500 THRU 00000500 DSTRT=0016 DBKEY POSITIONS.... SET............. TYPE.. NEXT PRIOR OWNER CALC MEMBER THE-RELATIONSHIP OWNER DATA ITEM.......... REDEFINES....... USAGE....... VALUE............................. PICTURE.................STRT LGTH 02 A-CALC-KEY-FIELD COMP-2 0016 0008 SET CONTROL ITEM FOR -------- CALC ------ RECORD DESCRIPTION LISTING ------ END -------- SET DESCRIPTION LISTING ------- PAGE 4 SET...... CALC MODE IS CHAIN ORDER IS SORTED OWNER.... SR1 0001 LINKED NEXT PRIOR MEMBER... OWNR 9999 LINKED NEXT PRIOR MANDATORY AUTOMATIC ASC A-CALC-KEY-FIELD DUP NOT ALLOWED MEMBER... M 0102 LINKED NEXT PRIOR MANDATORY AUTOMATIC ASC SORT-FIELD DUP FIRST SET...... THE-RELATIONSHIP MODE IS CHAIN ORDER IS SORTED OWNER.... OWNR 9999 LINKED NEXT PRIOR MEMBER... M 0102 LINKED NEXT PRIOR OWNER OPTIONAL MANUAL ASC SORT-FIELD DUP LAST -------- SET DESCRIPTION LISTING ------- END -- WARNING AND ERROR MESSAGE LISTING --- PAGE 5 000014 W S/RECORD SIZE D/NOT MULTIPLE OF 4 CHARACTERS A/FILLER ADDED -- WARNING AND ERROR MESSAGE LISTING --- PAGE 6 000000 E LEVEL MESSAGES ISSUED 000001 W LEVEL MESSAGES ISSUED REVIEW WARNING MESSAGES BEFORE FURTHER PROCESSING SUBSCHEMA PROCESSING ALLOWED PROCESSED BY UNIVAC SERIES 90 SCHEMA INITIALIZER VERSION 04/00 DATE 210608 TIME 09501000 // PARAM IN=XP7ERR/$Y$SRC IN=XP7ERR /$Y$SRC * * ******************************************************** * * DMS STATUS CHECK SECTION * * ******************************************************** * DMS-STATUS SECTION. STATUS-PARA. * IF ERROR-STATUS EQUAL TO ZEROS PERFORM DMS-SUCCESS GO TO ISABEX. DISPLAY '** DMS/90 RUN-UNIT TERMINATED BY DML ERROR' UPON THE-CONSOLE. DISPLAY ' PROGRAM NAME ------ ' PROGRAM-NAME UPON THE-CONSOLE. DISPLAY ' ERROR STATUS ------ ' ERROR-STATUS UPON THE-CONSOLE. DISPLAY ' ERROR RECORD ------ ' ERROR-RECORD UPON THE-CONSOLE. DISPLAY '** EXECUTE DBBAR IF DATA BASE WAS UPDATED' UPON THE-CONSOLE. DISPLAY '** DMS/90 RUN-UNIT TERMINATED BY DML ERROR' UPON THE-PRINTER. DISPLAY ' PROGRAM NAME ------ ' PROGRAM-NAME UPON THE-PRINTER. DISPLAY ' ERROR STATUS ------ ' ERROR-STATUS UPON THE-PRINTER. DISPLAY ' ERROR RECORD ------ ' ERROR-RECORD UPON THE-PRINTER. DISPLAY ' ERROR SET --------- ' ERROR-SET UPON THE-PRINTER. DISPLAY ' ERROR AREA -------- ' ERROR-AREA UPON THE-PRINTER. DISPLAY ' LAST GOOD RECORD -- ' RECORD-NAME UPON THE-PRINTER. DISPLAY ' LAST GOOD AREA ---- ' AREA-NAME UPON THE-PRINTER. DISPLAY '** EXECUTE DBBAR IF DATA BASE WAS UPDATED' UPON THE-PRINTER. PERFORM DMS-ABORT. * CLOSE ALL AREAS. ENTER LINKAGE. CALL 'XR7DMS' USING IDBMSCOM (02). ENTER COBOL. STOP RUN. * ISABEX. EXIT. * NOTE THIS IS THE END END OF DMS/90 SCHEMA INITIALIZER - DBSNT TIME 09501100 // PARAM OUT=INTRSUB/WORKLIB /$ OUT=INTRSUB /WORKLIB COMPILED BY UNIVAC SERIES 90 SUBSCHEMA COMPILER VERSION 04/00 DATE 210608 TIME 09501100 SOURCE DDL INPUT LISTING. SEQ SOURCE STATEMENT IDEN. PAGE 1 000100 LIST NETWORK BLD00780 000200 SUBSCHEMA IDENTIFICATION DIVISION. BLD00790 000300 SUBSCHEMA NAME IS VSBSUBSC OF SCHEMA NAME VSBSCHEM. BLD00800 000400 AUTHOR. W KRANTZ. BLD00810 000500 DATE. 10/11/74. BLD00820 000600 INSTALLATION. SOFTWARE DEVELOPMENT INTEGRITY BLD00830 000700 SPERRY UNIVAC BLD00840 000800 P O BOX 500 BLD00850 000900 BLUE BELL, PA 19422. BLD00860 001000 REMARKS. MINIMUM SUBSCHEMA FOR VSB BLD00870 001100 (VERIFICATION OF SYSTEM BUILD) SEQUENCE. BLD00880 001200 SUBSCHEMA DATA DIVISION. BLD00890 001500 AREA SECTION. BLD00900 001600 COPY THE-MINIMUM-AREA AREA. BLD00910 001700 RECORD SECTION. BLD00920 001800 COPY A-MINIMUM-RECORD RECORD. BLD00930 001900 COPY OWNR RECORD. BLD00940 002000 COPY M RECORD. BLD00950 002100 SET SECTION. BLD00960 002200 COPY THE-RELATIONSHIP SET. BLD00970 SUBSCHEMA DATA RECORDS. 2 01 A-MINIMUM-RECORD. 02 F PIC X. 02 FILLER PIC XXX. 01 M. 49 SORT-FIELD COMP-1. 01 OWNR. 02 A-CALC-KEY-FIELD COMP-2. RECORD DEFINITION ENTRIES. 3 01 VSBSUBSC-RECORDS. 03 SR100 PIC X(16) VALUE 'A-MINIMUM-RECORD'. 03 SR102 PIC X(16) VALUE 'M '. 03 SR9999 PIC X(16) VALUE 'OWNR '. SET DEFINITION ENTRIES. 4 01 VSBSUBSC-SETS. 03 THE-RELATIONSHIP PIC X(16) VALUE 'THE-RELATIONSHIP'. 03 CALC PIC X(16) VALUE 'CALC '. AREA DEFINITION ENTRIES. 5 01 VSBSUBSC-AREAS. 03 THE-MINIMUM-AREA PIC X(16) VALUE 'THE-MINIMUM-AREA'. DBMS BIND CALLS. 6 CALL 'XR7DMS' USING IDBMSCOM (59) VSBSUBSC-CTRL. CALL 'XR7DMS' USING IDBMSCOM (48) SR100 A-MINIMUM-RECORD. CALL 'XR7DMS' USING IDBMSCOM (48) SR102 M. CALL 'XR7DMS' USING IDBMSCOM (1) SORT-FIELD SR102 CALC. CALL 'XR7DMS' USING IDBMSCOM (1) SORT-FIELD SR102 THE-RELATIONSHIP. CALL 'XR7DMS' USING IDBMSCOM (48) SR9999 OWNR. CALL 'XR7DMS' USING IDBMSCOM (1) A-CALC-KEY-FIELD SR9999 CALC. SUBSCHEMA NETWORK DEFINITION TABLES. 7 DDL1 TITLE 'SUBSCHEMA VSBSUBSC NETWORK DEFINITION TABLES' VSBSUBSC START 0 SR 15,15 BC 15,0(14) ENTRY XR7ICB DS 0F IB50 DC CL4'IB50' DC A(SR100) DC A(AR10) DC 14F'0' DC F'-1' DC CL8'VSBSUBSC' DC 27F'0' DBAD1 DC V(XR7DMR) DC 12F'0' XR7ICB EQU IB50 DC CL8'210608 ' AR10 DC CL4'AC56' DC A(AM10001) DC A(IB50) DC 2F'0' DC F'500' DC F'500' DC CL4' ' DC F'-1' DC F'0' DC CL16'THE-MINIMUM-AREA' DC F'0' DC 2F'-1' SR1 DC CL4'SR51' DC A(IB50) DC A(OR101) DC A(SR1) DC A(SR1) DC A(SR1) DC F'-1' DC F'1' DC AL1(1) DC AL1(1) DC AL2(12) DC AL2(0) DC AL1(1) DC AL1(0) DC F'0' SUBSCHEMA NETWORK DEFINITION TABLES. 8 DC CL16'SR1 ' DC CL4' ' DC AL2(4) DC AL2(8) DC F'-1' DC A(SR1) OR101 DC CL4'OR52' DC A(MR10201) DC A(SR1) DC A(SR1) DC AL2(1) DC AL1(0) DC AL1(0) DC F'0' DC F'4' DC 4F'-1' DC F'1' DC AL1(0) DC AL1(1) DC AL1(0) DC AL1(0) DC F'-1' DC CL16'CALC ' SR6 DC CL4'SR51' DC A(SR1) DC A(SR6) DC A(MR601) DC A(MR601) DC A(SR6) DC F'-1' DC F'6' DC AL1(1) DC AL1(1) DC AL2(0) DC AL2(0) DC AL1(1) DC AL1(0) DC F'0' DC F'0' DC CL16'SR6 ' DC CL4' ' DC AL2(0) DC AL2(0) DC F'-1' DC A(SR6) SUBSCHEMA NETWORK DEFINITION TABLES. 9 MR601 DC CL4'MR53' DC A(OR101) DC A(MR601) DC A(SR6) DC A(SR6) DC F'0' DC F'4' DC F'-1' DC A(OR101) DC A(SR6) DC F'1' DC F'393222' DC AL2(0) DC AL2(0) DC AL1(0) DC AL1(0) DC AL1(1) DC AL1(1) DC CL16'CALC ' SR100 DC CL4'SR51' DC A(SR102) DC A(SR100) DC A(SR100) DC A(SR100) DC A(SR100) DC F'-1' DC F'100' DC AL1(0) DC AL1(0) DC AL2(4) DC AL2(0) DC AL1(0) DC AL1(2) DC F'500' DC F'500' DC CL16'A-MINIMUM-RECORD' DC CL4' ' DC AL2(4) DC AL2(0) DC F'-1' DC A(AM10001) AM10001 DC CL4'AM57' DC A(AM10201) DC A(AR10) DC A(SR100) DC A(SR100) SUBSCHEMA NETWORK DEFINITION TABLES. 10 SR102 DC CL4'SR51' DC A(SR9999) DC A(SR102) DC A(MR10201) DC A(MR10202) DC A(SR102) DC F'-1' DC F'102' DC AL1(0) DC AL1(0) DC AL2(24) DC AL2(0) DC AL1(0) DC AL1(1) DC F'500' DC F'500' DC CL16'M ' DC CL4' ' DC AL2(4) DC AL2(20) DC F'-1' DC A(AM10201) AM10201 DC CL4'AM57' DC A(AM999901) DC A(AR10) DC A(SR102) DC A(SR102) MR10201 DC CL4'MR53' DC A(MR999901) DC A(CR10201) DC A(MR10202) DC A(SR102) DC F'0' DC F'4' DC F'-1' DC A(OR101) DC A(SR102) DC F'1' DC F'102' DC AL2(1) DC AL2(0) DC AL1(0) DC AL1(0) DC AL1(1) DC AL1(1) DC CL16'CALC ' SUBSCHEMA NETWORK DEFINITION TABLES. 11 CR10201 DC CL4'CR55' DC A(MR10201) DC A(MR10201) DC F'0' DC F'20' DC F'4' DC AL2(0) DC AL2(0) DC CL16'SORT-FIELD ' DC 2F'0' MR10202 DC CL4'MR53' DC A(OR999901) DC A(CR10202) DC A(SR102) DC A(MR10201) DC F'8' DC F'12' DC F'16' DC A(OR999901) DC A(SR102) DC F'1' DC F'102' DC AL2(2) DC AL2(0) DC AL1(3) DC AL1(0) DC AL1(0) DC AL1(0) DC CL16'THE-RELATIONSHIP' CR10202 DC CL4'CR55' DC A(MR10202) DC A(MR10202) DC F'0' DC F'20' DC F'4' DC AL2(0) DC AL2(0) DC CL16'SORT-FIELD ' DC 2F'0' SR9999 DC CL4'SR51' DC A(SR6) DC A(OR999901) DC A(MR999901) DC A(MR999901) SUBSCHEMA NETWORK DEFINITION TABLES. 12 DC F'-1' DC F'9999' DC AL1(0) DC AL1(0) DC AL2(24) DC AL2(0) DC AL1(0) DC AL1(1) DC F'500' DC F'500' DC CL16'OWNR ' DC CL4' ' DC AL2(8) DC AL2(16) DC F'-1' DC A(AM999901) AM999901 DC CL4'AM57' DC A(AR10) DC A(AR10) DC A(SR9999) DC A(SR9999) MR999901 DC CL4'MR53' DC A(MR601) DC A(CR999901) DC A(SR9999) DC A(SR9999) DC F'0' DC F'4' DC F'-1' DC A(OR101) DC A(SR9999) DC F'1' DC F'9999' DC AL2(0) DC AL2(0) DC AL1(0) DC AL1(0) DC AL1(1) DC AL1(1) DC CL16'CALC ' CR999901 DC CL4'CR55' DC A(MR999901) DC A(MR999901) DC F'0' DC F'16' SUBSCHEMA NETWORK DEFINITION TABLES. 13 DC F'8' DC AL2(0) DC AL2(0) DC CL16'A-CALC-KEY-FIELD' DC 2F'0' OR999901 DC CL4'OR52' DC A(MR10202) DC A(SR9999) DC A(SR9999) DC AL2(1) DC AL1(0) DC AL1(0) DC F'8' DC F'12' DC 4F'-1' DC F'9999' DC AL1(0) DC AL1(0) DC AL1(0) DC AL1(0) DC F'-1' DC CL16'THE-RELATIONSHIP' DC CL16'THE-RELATIONSHIP' UNIVAC SYSTEM OS/3 ASSEMBLER VER760816 DATE- 21/06/08 TIME- 09.50 ASSEMBLER CONTROL STATEMENTS ENCOUNTERED AND PROCESSED AS FOLLOWS- // PARAM IN=INTRSUB/WORKLIB // PARAM LST=NC // PARAM OUT=WORKLIB EXTERNAL SYMBOL DICTIONARY PAGE 1 SYMBOL. TYPE. ESID. ADDRESS. LENGTH. VSBSUBSC CSECT 01 000000 00055C XR7ICB ENTRY 01 000008 XR7DMR V-CON 02 PAGE 1 LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 21/06/08 SUBSCHEMA VSBSUBSC NETWORK DEFINITION TABLES PAGE 2 LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 21/06/08 000000 2 VSBSUBSC START 0 000000 1BFF 3 SR 15,15 000002 47FE 0000 00000 4 BC 15,0(14) 5 ENTRY XR7ICB 000008 6 DS 0F 000008 C9C2F5F0 7 IB50 DC CL4'IB50' 00000C 00000274 8 DC A(SR100) 000010 00000100 9 DC A(AR10) 000014 0000000000000000 10 DC 14F'0' 00004C FFFFFFFF 11 DC F'-1' 000050 E5E2C2E2E4C2E2C3 12 DC CL8'VSBSUBSC' 000058 0000000000000000 13 DC 27F'0' 0000C4 00000000 14 DBAD1 DC V(XR7DMR) 0000C8 0000000000000000 15 DC 12F'0' 000008 16 XR7ICB EQU IB50 0000F8 F2F1F0F6F0F84040 17 DC CL8'210608 ' 000100 C1C3F5F6 18 AR10 DC CL4'AC56' 000104 000002C4 19 DC A(AM10001) 000108 00000008 20 DC A(IB50) 00010C 0000000000000000 21 DC 2F'0' 000114 000001F4 22 DC F'500' 000118 000001F4 23 DC F'500' 00011C 40404040 24 DC CL4' ' 000120 FFFFFFFF 25 DC F'-1' 000124 00000000 26 DC F'0' 000128 E3C8C560D4C9D5C9 27 DC CL16'THE-MINIMUM-AREA' 000138 00000000 28 DC F'0' 00013C FFFFFFFFFFFFFFFF 29 DC 2F'-1' 000144 E2D9F5F1 30 SR1 DC CL4'SR51' 000148 00000008 31 DC A(IB50) 00014C 00000194 32 DC A(OR101) 000150 00000144 33 DC A(SR1) 000154 00000144 34 DC A(SR1) 000158 00000144 35 DC A(SR1) 00015C FFFFFFFF 36 DC F'-1' 000160 00000001 37 DC F'1' 000164 01 38 DC AL1(1) 000165 01 39 DC AL1(1) 000166 000C 40 DC AL2(12) 000168 0000 41 DC AL2(0) 00016A 01 42 DC AL1(1) 00016B 00 43 DC AL1(0) 00016C 00000000 44 DC F'0' 000170 00000000 45 DC F'0' 000174 E2D9F14040404040 46 DC CL16'SR1 ' 000184 40404040 47 DC CL4' ' 000188 0004 48 DC AL2(4) 00018A 0008 49 DC AL2(8) 00018C FFFFFFFF 50 DC F'-1' 000194 D6D9F5F2 52 OR101 DC CL4'OR52' SUBSCHEMA VSBSUBSC NETWORK DEFINITION TABLES PAGE 3 LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 21/06/08 000198 0000033C 53 DC A(MR10201) 00019C 00000144 54 DC A(SR1) 0001A0 00000144 55 DC A(SR1) 0001A4 0001 56 DC AL2(1) 0001A6 00 57 DC AL1(0) 0001A7 00 58 DC AL1(0) 0001A8 00000000 59 DC F'0' 0001AC 00000004 60 DC F'4' 0001B0 FFFFFFFFFFFFFFFF 61 DC 4F'-1' 0001C0 00000001 62 DC F'1' 0001C4 00 63 DC AL1(0) 0001C5 01 64 DC AL1(1) 0001C6 00 65 DC AL1(0) 0001C7 00 66 DC AL1(0) 0001C8 FFFFFFFF 67 DC F'-1' 0001CC C3C1D3C340404040 68 DC CL16'CALC ' 0001DC E2D9F5F1 69 SR6 DC CL4'SR51' 0001E0 00000144 70 DC A(SR1) 0001E4 000001DC 71 DC A(SR6) 0001E8 0000022C 72 DC A(MR601) 0001EC 0000022C 73 DC A(MR601) 0001F0 000001DC 74 DC A(SR6) 0001F4 FFFFFFFF 75 DC F'-1' 0001F8 00000006 76 DC F'6' 0001FC 01 77 DC AL1(1) 0001FD 01 78 DC AL1(1) 0001FE 0000 79 DC AL2(0) 000200 0000 80 DC AL2(0) 000202 01 81 DC AL1(1) 000203 00 82 DC AL1(0) 000204 00000000 83 DC F'0' 000208 00000000 84 DC F'0' 00020C E2D9F64040404040 85 DC CL16'SR6 ' 00021C 40404040 86 DC CL4' ' 000220 0000 87 DC AL2(0) 000222 0000 88 DC AL2(0) 000224 FFFFFFFF 89 DC F'-1' 000228 000001DC 90 DC A(SR6) 00022C D4D9F5F3 91 MR601 DC CL4'MR53' 000230 00000194 92 DC A(OR101) 000234 0000022C 93 DC A(MR601) 000238 000001DC 94 DC A(SR6) 00023C 000001DC 95 DC A(SR6) 000240 00000000 96 DC F'0' 000244 00000004 97 DC F'4' 000248 FFFFFFFF 98 DC F'-1' 00024C 00000194 99 DC A(OR101) 000250 000001DC 100 DC A(SR6) 000254 00000001 101 DC F'1' 000258 00060006 102 DC F'393222' 00025E 0000 104 DC AL2(0) SUBSCHEMA VSBSUBSC NETWORK DEFINITION TABLES PAGE 4 LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 21/06/08 000260 00 105 DC AL1(0) 000261 00 106 DC AL1(0) 000262 01 107 DC AL1(1) 000263 01 108 DC AL1(1) 000264 C3C1D3C340404040 109 DC CL16'CALC ' 000274 E2D9F5F1 110 SR100 DC CL4'SR51' 000278 000002D8 111 DC A(SR102) 00027C 00000274 112 DC A(SR100) 000280 00000274 113 DC A(SR100) 000284 00000274 114 DC A(SR100) 000288 00000274 115 DC A(SR100) 00028C FFFFFFFF 116 DC F'-1' 000290 00000064 117 DC F'100' 000294 00 118 DC AL1(0) 000295 00 119 DC AL1(0) 000296 0004 120 DC AL2(4) 000298 0000 121 DC AL2(0) 00029A 00 122 DC AL1(0) 00029B 02 123 DC AL1(2) 00029C 000001F4 124 DC F'500' 0002A0 000001F4 125 DC F'500' 0002A4 C160D4C9D5C9D4E4 126 DC CL16'A-MINIMUM-RECORD' 0002B4 40404040 127 DC CL4' ' 0002B8 0004 128 DC AL2(4) 0002BA 0000 129 DC AL2(0) 0002BC FFFFFFFF 130 DC F'-1' 0002C0 000002C4 131 DC A(AM10001) 0002C4 C1D4F5F7 132 AM10001 DC CL4'AM57' 0002C8 00000328 133 DC A(AM10201) 0002CC 00000100 134 DC A(AR10) 0002D0 00000274 135 DC A(SR100) 0002D4 00000274 136 DC A(SR100) 0002D8 E2D9F5F1 137 SR102 DC CL4'SR51' 0002DC 00000434 138 DC A(SR9999) 0002E0 000002D8 139 DC A(SR102) 0002E4 0000033C 140 DC A(MR10201) 0002E8 000003B8 141 DC A(MR10202) 0002EC 000002D8 142 DC A(SR102) 0002F0 FFFFFFFF 143 DC F'-1' 0002F4 00000066 144 DC F'102' 0002F8 00 145 DC AL1(0) 0002F9 00 146 DC AL1(0) 0002FA 0018 147 DC AL2(24) 0002FC 0000 148 DC AL2(0) 0002FE 00 149 DC AL1(0) 0002FF 01 150 DC AL1(1) 000300 000001F4 151 DC F'500' 000304 000001F4 152 DC F'500' 000308 D440404040404040 153 DC CL16'M ' 000318 40404040 154 DC CL4' ' 00031E 0014 156 DC AL2(20) SUBSCHEMA VSBSUBSC NETWORK DEFINITION TABLES PAGE 5 LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 21/06/08 000320 FFFFFFFF 157 DC F'-1' 000324 00000328 158 DC A(AM10201) 000328 C1D4F5F7 159 AM10201 DC CL4'AM57' 00032C 00000484 160 DC A(AM999901) 000330 00000100 161 DC A(AR10) 000334 000002D8 162 DC A(SR102) 000338 000002D8 163 DC A(SR102) 00033C D4D9F5F3 164 MR10201 DC CL4'MR53' 000340 00000498 165 DC A(MR999901) 000344 00000384 166 DC A(CR10201) 000348 000003B8 167 DC A(MR10202) 00034C 000002D8 168 DC A(SR102) 000350 00000000 169 DC F'0' 000354 00000004 170 DC F'4' 000358 FFFFFFFF 171 DC F'-1' 00035C 00000194 172 DC A(OR101) 000360 000002D8 173 DC A(SR102) 000364 00000001 174 DC F'1' 000368 00000066 175 DC F'102' 00036C 0001 176 DC AL2(1) 00036E 0000 177 DC AL2(0) 000370 00 178 DC AL1(0) 000371 00 179 DC AL1(0) 000372 01 180 DC AL1(1) 000373 01 181 DC AL1(1) 000374 C3C1D3C340404040 182 DC CL16'CALC ' 000384 C3D9F5F5 183 CR10201 DC CL4'CR55' 000388 0000033C 184 DC A(MR10201) 00038C 0000033C 185 DC A(MR10201) 000390 00000000 186 DC F'0' 000394 00000014 187 DC F'20' 000398 00000004 188 DC F'4' 00039C 0000 189 DC AL2(0) 00039E 0000 190 DC AL2(0) 0003A0 E2D6D9E360C6C9C5 191 DC CL16'SORT-FIELD ' 0003B0 0000000000000000 192 DC 2F'0' 0003B8 D4D9F5F3 193 MR10202 DC CL4'MR53' 0003BC 00000514 194 DC A(OR999901) 0003C0 00000400 195 DC A(CR10202) 0003C4 000002D8 196 DC A(SR102) 0003C8 0000033C 197 DC A(MR10201) 0003CC 00000008 198 DC F'8' 0003D0 0000000C 199 DC F'12' 0003D4 00000010 200 DC F'16' 0003D8 00000514 201 DC A(OR999901) 0003DC 000002D8 202 DC A(SR102) 0003E0 00000001 203 DC F'1' 0003E4 00000066 204 DC F'102' 0003E8 0002 205 DC AL2(2) 0003EA 0000 206 DC AL2(0) 0003ED 00 208 DC AL1(0) SUBSCHEMA VSBSUBSC NETWORK DEFINITION TABLES PAGE 6 LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 21/06/08 0003EE 00 209 DC AL1(0) 0003EF 00 210 DC AL1(0) 0003F0 E3C8C560D9C5D3C1 211 DC CL16'THE-RELATIONSHIP' 000400 C3D9F5F5 212 CR10202 DC CL4'CR55' 000404 000003B8 213 DC A(MR10202) 000408 000003B8 214 DC A(MR10202) 00040C 00000000 215 DC F'0' 000410 00000014 216 DC F'20' 000414 00000004 217 DC F'4' 000418 0000 218 DC AL2(0) 00041A 0000 219 DC AL2(0) 00041C E2D6D9E360C6C9C5 220 DC CL16'SORT-FIELD ' 00042C 0000000000000000 221 DC 2F'0' 000434 E2D9F5F1 222 SR9999 DC CL4'SR51' 000438 000001DC 223 DC A(SR6) 00043C 00000514 224 DC A(OR999901) 000440 00000498 225 DC A(MR999901) 000444 00000498 226 DC A(MR999901) 000448 00000434 227 DC A(SR9999) 00044C FFFFFFFF 228 DC F'-1' 000450 0000270F 229 DC F'9999' 000454 00 230 DC AL1(0) 000455 00 231 DC AL1(0) 000456 0018 232 DC AL2(24) 000458 0000 233 DC AL2(0) 00045A 00 234 DC AL1(0) 00045B 01 235 DC AL1(1) 00045C 000001F4 236 DC F'500' 000460 000001F4 237 DC F'500' 000464 D6E6D5D940404040 238 DC CL16'OWNR ' 000474 40404040 239 DC CL4' ' 000478 0008 240 DC AL2(8) 00047A 0010 241 DC AL2(16) 00047C FFFFFFFF 242 DC F'-1' 000480 00000484 243 DC A(AM999901) 000484 C1D4F5F7 244 AM999901 DC CL4'AM57' 000488 00000100 245 DC A(AR10) 00048C 00000100 246 DC A(AR10) 000490 00000434 247 DC A(SR9999) 000494 00000434 248 DC A(SR9999) 000498 D4D9F5F3 249 MR999901 DC CL4'MR53' 00049C 0000022C 250 DC A(MR601) 0004A0 000004E0 251 DC A(CR999901) 0004A4 00000434 252 DC A(SR9999) 0004A8 00000434 253 DC A(SR9999) 0004AC 00000000 254 DC F'0' 0004B0 00000004 255 DC F'4' 0004B4 FFFFFFFF 256 DC F'-1' 0004B8 00000194 257 DC A(OR101) 0004BC 00000434 258 DC A(SR9999) 0004C4 0000270F 260 DC F'9999' SUBSCHEMA VSBSUBSC NETWORK DEFINITION TABLES PAGE 7 LOC. OBJECT CODE ADDR1 ADDR2 LINE SOURCE STATEMENT OS/3 ASM 21/06/08 0004C8 0000 261 DC AL2(0) 0004CA 0000 262 DC AL2(0) 0004CC 00 263 DC AL1(0) 0004CD 00 264 DC AL1(0) 0004CE 01 265 DC AL1(1) 0004CF 01 266 DC AL1(1) 0004D0 C3C1D3C340404040 267 DC CL16'CALC ' 0004E0 C3D9F5F5 268 CR999901 DC CL4'CR55' 0004E4 00000498 269 DC A(MR999901) 0004E8 00000498 270 DC A(MR999901) 0004EC 00000000 271 DC F'0' 0004F0 00000010 272 DC F'16' 0004F4 00000008 273 DC F'8' 0004F8 0000 274 DC AL2(0) 0004FA 0000 275 DC AL2(0) 0004FC C160C3C1D3C360D2 276 DC CL16'A-CALC-KEY-FIELD' 00050C 0000000000000000 277 DC 2F'0' 000514 D6D9F5F2 278 OR999901 DC CL4'OR52' 000518 000003B8 279 DC A(MR10202) 00051C 00000434 280 DC A(SR9999) 000520 00000434 281 DC A(SR9999) 000524 0001 282 DC AL2(1) 000526 00 283 DC AL1(0) 000527 00 284 DC AL1(0) 000528 00000008 285 DC F'8' 00052C 0000000C 286 DC F'12' 000530 FFFFFFFFFFFFFFFF 287 DC 4F'-1' 000540 0000270F 288 DC F'9999' 000544 00 289 DC AL1(0) 000545 00 290 DC AL1(0) 000546 00 291 DC AL1(0) 000547 00 292 DC AL1(0) 000548 FFFFFFFF 293 DC F'-1' 00054C E3C8C560D9C5D3C1 294 DC CL16'THE-RELATIONSHIP' 295 END DIAGNOSTICS PAGE 1 LINE ERROR CODE MESSAGE NO STATEMENTS FLAGGED IN THIS ASSEMBLY -21/06/08 09.50- DDDDDD M M SSSS BBBBBBB UU UU IIIIII LL DDDDDD DDDDDDDD MM MM SSSSSS BBBBBBBB UU UU IIIIII LL DDDDDDDD DD DD MMM MMM SS SS BB BB UU UU II LL DD DD DD DD MMMMMMMM SS BB BB UU UU II LL DD DD DD DD MM MM MM SS BBBBBBB UU UU II LL DD DD DD DD MM MM SS BBBBBBB UU UU II LL DD DD DD DD MM MM SS BB BB UU UU II LL DD DD DD DD MM MM SS SS BB BB UU UU II LL DD DD DDDDDDD MM MM SSSSSS BBBBBBBB UUUUUUU IIIIII LLLLLLLL DDDDDDD DDDDDD MM MM SSSS BBBBBBB UUU UU IIIIII LLLLLLLL DDDDDD 222 11 / 0000 6666 / 0000 8888 222222 111 // 00 00 666666 // 00 00 888888 22 22 111 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 8888 22 11 /// 00 00 666666 /// 00 00 888888 22 11 /// 00 00 666 66 /// 00 00 88 88 22 11 /// 00 00 66 66 /// 00 00 88 88 222222 1111 // 00 00 666666 // 00 00 888888 2222222 1111 / 0000 6666 / 0000 8888 0000 999 5555555 0000 11 222 00 00 99999 5555555 00 00 111 222222 00 00 99 99 :: 55 00 00 :: 111 22 22 00 00 99 99 :: 55555 00 00 :: 11 22 00 00 99 999 55 55 00 00 11 22 00 00 99999 55 00 00 11 22 00 00 99 :: 55 00 00 :: 11 22 00 00 99 99 :: 55 555 00 00 :: 11 22 00 00 99999 555555 00 00 1111 222222 0000 999 5555 0000 1111 2222222 EEEEEEEE N NN DDDDDD EEEEEEEE NN NN DDDDDDDD EE NNN NN DD DD EE NNNN NN DD DD EEEEE NN NN NN DD DD EEEEE NN NNNN DD DD EE NN NNN DD DD EE NN NN DD DD EEEEEEEE NN NN DDDDDDD EEEEEEEE NN NN DDDDDD DDDDDD M M SSSS CCCCCC OOOOOO M M PPPPPP DDDDDDDD MM MM SSSSSS CCCCCCCC OOOOOOOO MM MM PPPPPPP DD DD MMM MMM SS SS CC CC OO OO MMM MMM PP PP DD DD MMMMMMMM SS CC OO OO MMMMMMMM PP PP DD DD MM MM MM SS CC OO OO MM MM MM PPPPPPP DD DD MM MM SS CC OO OO MM MM PPPPPP DD DD MM MM SS CC OO OO MM MM PP DD DD MM MM SS SS CC CC OO OO MM MM PP DDDDDDD MM MM SSSSSS CCCCCCCC OOOOOOOO MM MM PP DDDDDD MM MM SSSS CCCCCC OOOOOO MM MM PP 222 11 / 0000 6666 / 0000 8888 222222 111 // 00 00 666666 // 00 00 888888 22 22 111 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 8888 22 11 /// 00 00 666666 /// 00 00 888888 22 11 /// 00 00 666 66 /// 00 00 88 88 22 11 /// 00 00 66 66 /// 00 00 88 88 222222 1111 // 00 00 666666 // 00 00 888888 2222222 1111 / 0000 6666 / 0000 8888 0000 999 5555555 0000 222 0000 00 00 99999 5555555 00 00 222222 00 00 00 00 99 99 :: 55 00 00 :: 22 22 00 00 00 00 99 99 :: 55555 00 00 :: 22 00 00 00 00 99 999 55 55 00 00 22 00 00 00 00 99999 55 00 00 22 00 00 00 00 99 :: 55 00 00 :: 22 00 00 00 00 99 99 :: 55 555 00 00 :: 22 00 00 00 00 99999 555555 00 00 222222 00 00 0000 999 5555 0000 2222222 0000 BBBBBBB EEEEEEEE GGGGGG IIIIII N NN BBBBBBBB EEEEEEEE GGGGGGGG IIIIII NN NN BB BB EE GG GG II NNN NN BB BB EE GG II NNNN NN BBBBBBB EEEEE GG II NN NN NN BBBBBBB EEEEE GG GGGG II NN NNNN BB BB EE GG GGGG II NN NNN BB BB EE GG GG II NN NN BBBBBBBB EEEEEEEE GGGGGGGG IIIIII NN NN BBBBBBB EEEEEEEE GGGGGGG IIIIII NN NN PROCESSED BY UNIVAC SERIES 90 DATA MANIPULATION LANGUAGE (DML) PRE-PROCESSOR VERSION 04/00 PAGE 1 // PARAM OUT=INTRRUN/WORKLIB /$ OUT=INTRRUN /WORKLIB **QUOTE=SINGLE IS APPLIED TO BOUND NONNUMERIC LITERALS** DML PREPROCESSING COMPLETED WITHOUT ERRORS COMPILED BY UNIVAC OS/3E COBOL COMPILER VERSION 04.00/04 DATE 21/06/08 TIME 09.50.23 // PARAM IN=INTRRUN/WORKLIB // PARAM LST=(A,K,L,S) // PARAM OBJ=WORKLIB SOURCE CREATION DATE 21/06/08 TIME 09.50 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00001 00001 000100 IDENTIFICATION DIVISION. CMP00120 00002 000200 PROGRAM-ID. VSBRUN. CMP00130 00003 000300 AUTHOR. W KRANTZ. CMP00140 00004 000400 INSTALLATION. SOFTWARE DEVELOPMENT INTEGRITY CMP00150 00005 000500 SPERRY UNIVAC CMP00160 00006 000600 P O BOX 500 CMP00170 00007 000700 BLUE BELL, PA 19422. CMP00180 00008 000800 DATE-WRITTEN. OCTOBER 11, 1974. CMP00190 00009 000900 REMARKS. MINIMUM RUN-UNIT FOR VSB (VERIFICATION OF SYSTEM BUILD) CMP00200 00010 001000 SEQUENCE. CMP00210 00011 001100 ENVIRONMENT DIVISION. CMP00220 00012 001200 CONFIGURATION SECTION. CMP00230 00013 001300 SOURCE-COMPUTER. UNIVAC-9030. CMP00240 00014 001400 OBJECT-COMPUTER. UNIVAC-9030. CMP00250 00015 001500 SPECIAL-NAMES. CMP00260 00016 001600 SYSLOG IS THE-CONSOLE CMP00270 00017 001700 SYSLST IS THE-PRINTER. CMP00280 00018 001800 DATA DIVISION. CMP00290 00019 001900*SCHEMA SECTION. CMP00300 00020 002000*INVOKE SUBSCHEMA VSBSUBSC OF VSBSCHEM. CMP00310 00021 002100 WORKING-STORAGE SECTION. CMP00320 00022 002200 77 DBPAGE PICTURE S9(8) COMP SYNC. CMP00330 00023 002300 77 DBLINE PICTURE S9(8) COMP SYNC. CMP00340 00024 002400 77 INIT-DBKEY PICTURE S9(8) COMP SYNC VALUE -65345535. CMP00350 00025 002500* THIS VALUE WILL GIVE PAGE/LINE = -255,255/-255 CMP00360 00026 002600 77 ERRORS PICTURE 9999 VALUE ZEROS. CMP00370 00027 002700 77 DMS-STATUS-INDICATOR PICTURE X VALUE '*'. CMP00380 00028 002800 77 EXPECTED-RECORD-NAME PICTURE X(16) VALUE ALL '*'. CMP00390 00029 002900 77 EXPECTED PICTURE X(16) VALUE SPACES. CMP00400 00030 003000 77 FOUND PICTURE X(16) VALUE SPACES. CMP00410 00031 003100 77 EXPECTED-KEY PICTURE S9(8) COMP SYNC VALUE -65345535. CMP00420 00032 003200 77 FOUND-KEY PICTURE S9(8) COMP SYNC VALUE -65345535. CMP00430 00033 003300 01 KEY-EDIT-AREA. CMP00440 00034 003400 03 EDIT-PAGE PICTURE +++,+++,++9. CMP00450 00035 003500 03 FILLER PICTURE X VALUE SPACE. CMP00460 00036 003600 03 EDIT-LINE PICTURE +++9. CMP00470 00037 003700 01 KEY-AND-CONTENT-SAVE-TABLE. CMP00480 00038 003800 03 SAVE-DBKEY OCCURS 7 TIMES PICTURE S9(8) COMP SYNC. CMP00490 00039 003900 03 SAVE-RECORD OCCURS 7 TIMES PICTURE X(8). CMP00500 00040 004000 01 HEADING-LINE-1. CMP00510 00041 004100 03 FILLER PICTURE X(51) VALUE SPACES. CMP00520 00042 004200 03 FILLER PICTURE X(29) CMP00530 00044 004400 03 FILLER PICTURE X(51) VALUE SPACES. CMP00550 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00002 00045 004500 01 HEADING-LINE-2. CMP00560 00046 004600 03 FILLER PICTURE X(12) VALUE SPACES. CMP00570 00047 004700 03 FILLER PICTURE X(8) VALUE 'FUNCTION'. CMP00580 00048 004800 03 FILLER PICTURE X VALUE SPACE. CMP00590 00049 004900 03 FILLER PICTURE X(6) VALUE 'ERROR-'. CMP00600 00050 005000 03 FILLER PICTURE X VALUE SPACE. CMP00610 00051 005100 03 FILLER PICTURE X(15) CMP00620 00052 005200 VALUE 'DBKEY: '. CMP00630 00053 005300 03 FILLER PICTURE X VALUE SPACE. CMP00640 00054 005400 03 FILLER PIC X(16) VALUE 'RECORD-NAME '. CMP00650 00055 005500 03 FILLER PICTURE X VALUE SPACE. CMP00660 00056 005600 03 FILLER PIC X(16) VALUE 'AREA-NAME '. CMP00670 00057 005700 03 FILLER PICTURE X VALUE SPACE. CMP00680 00058 005800 03 FILLER PIC X(16) VALUE 'ERROR-SET '. CMP00690 00059 005900 03 FILLER PICTURE X VALUE SPACE. CMP00700 00060 006000 03 FILLER PIC X(16) VALUE 'ERROR-RECORD '. CMP00710 00061 006100 03 FILLER PICTURE X VALUE SPACE. CMP00720 00062 006200 03 FILLER PIC X(16) VALUE 'ERROR-AREA '. CMP00730 00063 006300 03 FILLER PICTURE X(3) VALUE SPACES. CMP00740 00064 006400 01 HEADING-LINE-3. CMP00750 00065 006500 03 FILLER PICTURE X(12) VALUE SPACES. CMP00760 00066 006600 03 FILLER PICTURE X(8) VALUE SPACES. CMP00770 00067 006700 03 FILLER PICTURE X VALUE SPACE. CMP00780 00068 006800 03 FILLER PICTURE X(6) VALUE 'STATUS'. CMP00790 00069 006900 03 FILLER PICTURE X VALUE SPACE. CMP00800 00070 007000 03 FILLER PICTURE X(15) CMP00810 00071 007100 VALUE ' PAGE LNE'. CMP00820 00072 007200 03 FILLER PICTURE X VALUE SPACE. CMP00830 00073 007300 03 FILLER PICTURE X(16) VALUE SPACES. CMP00840 00074 007400 03 FILLER PICTURE X VALUE SPACE. CMP00850 00075 007500 03 FILLER PICTURE X(16) VALUE SPACES. CMP00860 00076 007600 03 FILLER PICTURE X VALUE SPACE. CMP00870 00077 007700 03 FILLER PICTURE X(16) VALUE SPACES. CMP00880 00078 007800 03 FILLER PICTURE X VALUE SPACE. CMP00890 00079 007900 03 FILLER PICTURE X(16) VALUE SPACES. CMP00900 00080 008000 03 FILLER PICTURE X VALUE SPACE. CMP00910 00081 008100 03 FILLER PICTURE X(16) VALUE SPACES. CMP00920 00082 008200 03 FILLER PICTURE X(3) VALUE SPACES. CMP00930 00083 008300 01 STATUS-LINE. CMP00940 00084 008400 03 FILLER PICTURE X(12) VALUE SPACES. CMP00950 00085 008500 03 SL-FUNCTION PICTURE X(6) VALUE ALL '*'. CMP00960 00086 008600 03 FILLER PICTURE XX VALUE SPACES. CMP00970 00087 008700 03 FILLER PICTURE X VALUE SPACE. CMP00980 00088 008800 03 SL-ERROR-STATUS PICTURE X(4). CMP00990 00089 008900 03 FILLER PICTURE XX VALUE SPACES. CMP01000 00090 009000 03 FILLER PICTURE X VALUE SPACE. CMP01010 00091 009100 03 SL-DBKEY-PAGE PICTURE +++,+++,++9. CMP01020 00092 009200 03 SL-DBKEY-LINE PICTURE +++9. CMP01030 00093 009300 03 FILLER PICTURE X VALUE SPACE. CMP01040 00094 009400 03 SL-RECORD-NAME PICTURE X(16). CMP01050 00095 009500 03 FILLER PICTURE X VALUE SPACE. CMP01060 00096 009600 03 SL-AREA-NAME PICTURE X(16). CMP01070 00098 009800 03 SL-ERROR-SET PICTURE X(16). CMP01090 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00003 00099 009900 03 FILLER PICTURE X VALUE SPACE. CMP01100 00100 010000 03 SL-ERROR-RECORD PICTURE X(16). CMP01110 00101 010100 03 FILLER PICTURE X VALUE SPACE. CMP01120 00102 010200 03 SL-ERROR-AREA PICTURE X(16). CMP01130 00103 010300 03 FILLER PICTURE X(3) VALUE SPACES. CMP01140 00104 010400 01 COMPARISON-ERROR-LINE. CMP01150 00105 010500 03 CEL-MESSAGE PICTURE X(78) VALUE ALL '*'. CMP01160 00106 010600 03 FILLER PICTURE X(10) VALUE 'EXPECTED: '.CMP01170 00107 010700 03 CEL-EXPECTED-VALUE PICTURE X(16). CMP01180 00108 010800 03 FILLER PICTURE X(11) VALUE ' FOUND: '. CMP01190 00109 010900 03 CEL-FOUND-VALUE PICTURE X(16). CMP01200 00110 011000 01 RESULT-LINE. CMP01210 00111 011100 03 FILLER PICTURE X(16) CMP01220 00112 011200 VALUE ' DMS/90 VSB TEST'. CMP01230 00113 011300 03 FILLER PICTURE XXX VALUE SPACES. CMP01240 00114 011400 03 FILLER PICTURE X(7) VALUE 'ERRORS='. CMP01250 00115 011500 03 RL-ERRORS PICTURE 9999. CMP01260 00116 011600 03 FILLER PICTURE XXX VALUE SPACES. CMP01270 00117 011700 03 FILLER PICTURE X VALUE '.'. CMP01280 00118 011800 03 RL-RESULT PICTURE XXXX. CMP01290 00119 011900 03 FILLER PICTURE X VALUE '.'. CMP01300 00120 01 SUBSCHEMA VALUE 'VSBSUBSC' PIC X(08). 00121 01 VSBSUBSC-CTRL. 00122 03 PROGRAM-NAME PIC X(8) VALUE SPACES. 00123 03 ERROR-STATUS PIC X(4) VALUE '1400'. 00124 03 DBKEY PIC S9(8) COMP SYNC. 00125 03 RECORD-NAME PIC X(16) VALUE SPACES. 00126 03 AREA-NAME PIC X(16) VALUE SPACES. 00127 03 ERROR-SET PIC X(16) VALUE SPACES. 00128 03 ERROR-RECORD PIC X(16) VALUE SPACES. 00129 03 ERROR-AREA PIC X(16) VALUE SPACES. 00130 03 IDBMSCOM PIC X OCCURS 100. 00131 03 DIRECT-DBK PIC S9(8) COMP SYNC. 00132 01 VSBSUBSC-RECORDS. 00133 03 SR100 PIC X(16) VALUE 'A-MINIMUM-RECORD'. 00134 03 SR102 PIC X(16) VALUE 'M '. 00135 03 SR9999 PIC X(16) VALUE 'OWNR '. 00136 01 VSBSUBSC-SETS. 00137 03 THE-RELATIONSHIP PIC X(16) VALUE 'THE-RELATIONSHIP'. 00138 03 CALC PIC X(16) VALUE 'CALC '. 00139 01 VSBSUBSC-AREAS. 00140 03 THE-MINIMUM-AREA PIC X(16) VALUE 'THE-MINIMUM-AREA'. 00141 01 A-MINIMUM-RECORD. 00142 02 F PIC X. 00143 02 FILLER PIC XXX. 00144 01 M. 00145 49 SORT-FIELD COMP-1. 00146 01 OWNR. 00147 02 A-CALC-KEY-FIELD COMP-2. 00148 012000 PROCEDURE DIVISION. CMP01310 00149 012100 MAIN SECTION. CMP01320 00150 012200 PRINT-HEADING. CMP01330 00152 ENTER LINKAGE. LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00004 00153 CALL VSBSUBSC. 00154 ENTER COBOL. 00155 ENTER LINKAGE. 00156 CALL 'XR7DMS' USING IDBMSCOM (59) VSBSUBSC-CTRL. 00157 ENTER COBOL. 00158 ENTER LINKAGE. 00159 CALL 'XR7DMS' USING IDBMSCOM (48) SR100 A-MINIMUM-RECORD. 00160 ENTER COBOL. 00161 ENTER LINKAGE. 00162 CALL 'XR7DMS' USING IDBMSCOM (48) SR102 M. 00163 ENTER COBOL. 00164 ENTER LINKAGE. 00165 CALL 'XR7DMS' USING IDBMSCOM (1) SORT-FIELD 00166 SR102 CALC. 00167 ENTER COBOL. 00168 ENTER LINKAGE. 00169 CALL 'XR7DMS' USING IDBMSCOM (1) SORT-FIELD 00170 SR102 THE-RELATIONSHIP. 00171 ENTER COBOL. 00172 ENTER LINKAGE. 00173 CALL 'XR7DMS' USING IDBMSCOM (48) SR9999 OWNR. 00174 ENTER COBOL. 00175 ENTER LINKAGE. 00176 CALL 'XR7DMS' USING IDBMSCOM (1) A-CALC-KEY-FIELD 00177 SR9999 CALC. 00178 ENTER COBOL. 00179 012300 DISPLAY ' ' UPON THE-PRINTER. CMP01340 00180 012400 DISPLAY HEADING-LINE-1 UPON THE-PRINTER. CMP01350 00181 012500 DISPLAY ' ' UPON THE-PRINTER. CMP01360 00182 012600 DISPLAY HEADING-LINE-2 UPON THE-PRINTER. CMP01370 00183 012700 DISPLAY HEADING-LINE-3 UPON THE-PRINTER. CMP01380 00184 012800 DISPLAY ' ' UPON THE-PRINTER. CMP01390 00185 012900 DISPLAY ' ' UPON THE-PRINTER. CMP01400 00186 013000 TEST-010. CMP01410 00187 013100 DISPLAY ' 010 START (OPEN)' UPON THE-PRINTER. CMP01420 00188 013200* THE FOLLOWING CARD IS BLANK ON PURPOSE CMP01430 00189 013300 CMP01440 00190 013400 PERFORM INIT-SYSTEM-ITEMS. CMP01450 00191 013500* OPEN ALL AREAS USAGE-MODE IS EXCLUSIVE UPDATE. CMP01460 00192 ENTER LINKAGE. 00193 CALL XR7DMS USING IDBMSCOM (41). 00194 ENTER COBOL. 00195 013600 MOVE 'OPEN ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP01470 00196 013700 MOVE -1 TO EXPECTED-KEY. CMP01480 00197 013800 MOVE SPACES TO EXPECTED-RECORD-NAME. CMP01490 00198 013900 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP01500 00199 014000 DISPLAY ' 010 END' UPON THE-PRINTER. CMP01510 00200 014100 TEST-020. CMP01520 00201 014200 DISPLAY ' 020 START (STORE A-MINIMUM-RECORD)' CMP01530 00202 014300 UPON THE-PRINTER. CMP01540 00203 014400 MOVE '1' TO F. CMP01550 00204 014500 MOVE A-MINIMUM-RECORD TO SAVE-RECORD (1). CMP01560 00206 014700 PERFORM INIT-SYSTEM-ITEMS. CMP01580 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00005 00207 014800* STORE A-MINIMUM-RECORD RECORD. CMP01590 00208 ENTER LINKAGE. 00209 CALL XR7DMS USING IDBMSCOM (42) 00210 SR100. 00211 ENTER COBOL. 00212 014900 MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP01600 00213 015000 MOVE 128001 TO EXPECTED-KEY. CMP01610 00214 015100 MOVE 'A-MINIMUM-RECORD' TO EXPECTED-RECORD-NAME. CMP01620 00215 015200 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP01630 00216 015300 MOVE DBKEY TO SAVE-DBKEY (1). CMP01640 00217 015400 MOVE '2' TO F. CMP01650 00218 015500 MOVE A-MINIMUM-RECORD TO SAVE-RECORD (2). CMP01660 00219 015600 MOVE -1 TO DIRECT-DBK. CMP01670 00220 015700 PERFORM INIT-SYSTEM-ITEMS. CMP01680 00221 015800* STORE A-MINIMUM-RECORD RECORD. CMP01690 00222 ENTER LINKAGE. 00223 CALL XR7DMS USING IDBMSCOM (42) 00224 SR100. 00225 ENTER COBOL. 00226 015900 MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP01700 00227 016000 MOVE 128002 TO EXPECTED-KEY. CMP01710 00228 016100 MOVE 'A-MINIMUM-RECORD' TO EXPECTED-RECORD-NAME. CMP01720 00229 016200 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP01730 00230 016300 MOVE DBKEY TO SAVE-DBKEY (2). CMP01740 00231 016400 DISPLAY ' 020 END' UPON THE-PRINTER. CMP01750 00232 016500 TEST-030. CMP01760 00233 016600 DISPLAY ' 030 START (STORE OWNR RECORD)' CMP01770 00234 016700 UPON THE-PRINTER. CMP01780 00235 016800 MOVE 0 TO A-CALC-KEY-FIELD. CMP01790 00236 016900 MOVE OWNR TO SAVE-RECORD (3). CMP01800 00237 017000 PERFORM INIT-SYSTEM-ITEMS. CMP01810 00238 017100* STORE OWNR RECORD. CMP01820 00239 ENTER LINKAGE. 00240 CALL XR7DMS USING IDBMSCOM (42) 00241 SR9999. 00242 ENTER COBOL. 00243 017200 MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP01830 00244 017300 MOVE 128003 TO EXPECTED-KEY. CMP01840 00245 017400 MOVE 'OWNR' TO EXPECTED-RECORD-NAME. CMP01850 00246 017500 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP01860 00247 017600 MOVE DBKEY TO SAVE-DBKEY (3). CMP01870 00248 017700 MOVE 9999 TO A-CALC-KEY-FIELD. CMP01880 00249 017800 MOVE OWNR TO SAVE-RECORD (4). CMP01890 00250 017900 PERFORM INIT-SYSTEM-ITEMS. CMP01900 00251 018000* STORE OWNR RECORD. CMP01910 00252 ENTER LINKAGE. 00253 CALL XR7DMS USING IDBMSCOM (42) 00254 SR9999. 00255 ENTER COBOL. 00256 018100 MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP01920 00257 018200 MOVE 128004 TO EXPECTED-KEY. CMP01930 00258 018300 MOVE 'OWNR' TO EXPECTED-RECORD-NAME. CMP01940 00260 018500 MOVE DBKEY TO SAVE-DBKEY (4). CMP01960 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00006 00261 018600 DISPLAY ' 030 END' UPON THE-PRINTER. CMP01970 00262 018700 TEST-040. CMP01980 00263 018800 DISPLAY ' 040 START (STORE M RECORD)' UPON THE-PRINTER. CMP01990 00264 018900 MOVE 123 TO SORT-FIELD. CMP02000 00265 019000 MOVE M TO SAVE-RECORD (5). CMP02010 00266 019100 PERFORM INIT-SYSTEM-ITEMS. CMP02020 00267 019200* STORE M RECORD. CMP02030 00268 ENTER LINKAGE. 00269 CALL XR7DMS USING IDBMSCOM (42) 00270 SR102. 00271 ENTER COBOL. 00272 019300 MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02040 00273 019400 MOVE 128005 TO EXPECTED-KEY. CMP02050 00274 019500 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02060 00275 019600 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02070 00276 019700 MOVE DBKEY TO SAVE-DBKEY (5). CMP02080 00277 019800 MOVE 123 TO SORT-FIELD. CMP02090 00278 019900 MOVE M TO SAVE-RECORD (6). CMP02100 00279 020000 PERFORM INIT-SYSTEM-ITEMS. CMP02110 00280 020100* STORE M RECORD. CMP02120 00281 ENTER LINKAGE. 00282 CALL XR7DMS USING IDBMSCOM (42) 00283 SR102. 00284 ENTER COBOL. 00285 020200 MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02130 00286 020300 MOVE 128006 TO EXPECTED-KEY. CMP02140 00287 020400 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02150 00288 020500 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02160 00289 020600 MOVE DBKEY TO SAVE-DBKEY (6). CMP02170 00290 020700 MOVE 9999 TO SORT-FIELD. CMP02180 00291 020800 MOVE M TO SAVE-RECORD (7). CMP02190 00292 020900 PERFORM INIT-SYSTEM-ITEMS. CMP02200 00293 021000* STORE M RECORD. CMP02210 00294 ENTER LINKAGE. 00295 CALL XR7DMS USING IDBMSCOM (42) 00296 SR102. 00297 ENTER COBOL. 00298 021100 MOVE 'STORE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02220 00299 021200 MOVE 128007 TO EXPECTED-KEY. CMP02230 00300 021300 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02240 00301 021400 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02250 00302 021500 MOVE DBKEY TO SAVE-DBKEY (7). CMP02260 00303 021600 DISPLAY ' 040 END' UPON THE-PRINTER. CMP02270 00304 021700 TEST-050. CMP02280 00305 021800 DISPLAY ' 050 START (FIND (#1),GET)' CMP02290 00306 021900 UPON THE-PRINTER. CMP02300 00307 022000 MOVE ALL '*' TO OWNR. CMP02310 00308 022100 MOVE OWNR TO EXPECTED. CMP02320 00309 022200 PERFORM INIT-SYSTEM-ITEMS. CMP02330 00310 022300* FIND OWNR RECORD USING SAVE-DBKEY (4). CMP02340 00311 ENTER LINKAGE. 00312 CALL XR7DMS USING IDBMSCOM (06) 00314 SAVE-DBKEY LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00007 00315 (4). 00316 ENTER COBOL. 00317 022400 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02350 00318 022500 MOVE OWNR TO FOUND. CMP02360 00319 022600 IF FOUND NOT = EXPECTED CMP02370 00320 022700 MOVE '*RECORD CONTENT SHOULD NOT HAVE CHANGED' CMP02380 00321 022800 TO CEL-MESSAGE CMP02390 00322 022900 PERFORM PRINT-COMP-ERROR-LINE. CMP02400 00323 023000 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP02410 00324 023100 MOVE 'OWNR' TO EXPECTED-RECORD-NAME. CMP02420 00325 023200 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02430 00326 023300 PERFORM INIT-SYSTEM-ITEMS. CMP02440 00327 023400* GET OWNR RECORD. CMP02450 00328 ENTER LINKAGE. 00329 CALL XR7DMS USING IDBMSCOM (34) 00330 SR9999. 00331 ENTER COBOL. 00332 023500 MOVE 'GET ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02460 00333 023600 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP02470 00334 023700 MOVE 'OWNR' TO EXPECTED-RECORD-NAME. CMP02480 00335 023800 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02490 00336 023900 MOVE SAVE-RECORD (4) TO EXPECTED. CMP02500 00337 024000 MOVE OWNR TO FOUND. CMP02510 00338 024100 IF FOUND NOT = EXPECTED CMP02520 00339 024200 MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE CMP02530 00340 024300 PERFORM PRINT-COMP-ERROR-LINE. CMP02540 00341 024400 DISPLAY ' 050 END' UPON THE-PRINTER. CMP02550 00342 024500 TEST-060. CMP02560 00343 024600 DISPLAY ' 060 START (FIND (#2),INSERT)' CMP02570 00344 024700 UPON THE-PRINTER. CMP02580 00345 024800 PERFORM INIT-SYSTEM-ITEMS. CMP02590 00346 024900* FIND M RECORD USING SAVE-DBKEY (7). CMP02600 00347 ENTER LINKAGE. 00348 CALL XR7DMS USING IDBMSCOM (06) 00349 SR102 00350 SAVE-DBKEY 00351 (7). 00352 ENTER COBOL. 00353 025000 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02610 00354 025100 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP02620 00355 025200 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02630 00356 025300 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02640 00357 025400 PERFORM INIT-SYSTEM-ITEMS. CMP02650 00358 025500* INSERT M RECORD INTO THE-RELATIONSHIP SET. CMP02660 00359 ENTER LINKAGE. 00360 CALL XR7DMS USING IDBMSCOM (44) 00361 SR102 00362 THE-RELATIONSHIP. 00363 ENTER COBOL. 00364 025600 MOVE 'INSERT' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02670 00365 025700 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP02680 00366 025800 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02690 00368 026000 PERFORM INIT-SYSTEM-ITEMS. CMP02710 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00008 00369 026100* FIND M RECORD USING SAVE-DBKEY (5). CMP02720 00370 ENTER LINKAGE. 00371 CALL XR7DMS USING IDBMSCOM (06) 00372 SR102 00373 SAVE-DBKEY 00374 (5). 00375 ENTER COBOL. 00376 026200 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02730 00377 026300 MOVE SAVE-DBKEY (5) TO EXPECTED-KEY. CMP02740 00378 026400 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02750 00379 026500 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02760 00380 026600 PERFORM INIT-SYSTEM-ITEMS. CMP02770 00381 026700* NEXT LINE USES MINIMUM SYNTAX CMP02780 00382 026800* INSERT M INTO THE-RELATIONSHIP. CMP02790 00383 ENTER LINKAGE. 00384 CALL XR7DMS USING IDBMSCOM (44) 00385 SR102 00386 THE-RELATIONSHIP. 00387 ENTER COBOL. 00388 026900 MOVE 'INSERT' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02800 00389 027000 MOVE SAVE-DBKEY (5) TO EXPECTED-KEY. CMP02810 00390 027100 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02820 00391 027200 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02830 00392 027300 PERFORM INIT-SYSTEM-ITEMS. CMP02840 00393 027400* FIND M RECORD USING SAVE-DBKEY (6). CMP02850 00394 ENTER LINKAGE. 00395 CALL XR7DMS USING IDBMSCOM (06) 00396 SR102 00397 SAVE-DBKEY 00398 (6). 00399 ENTER COBOL. 00400 027500 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02860 00401 027600 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP02870 00402 027700 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02880 00403 027800 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02890 00404 027900 PERFORM INIT-SYSTEM-ITEMS. CMP02900 00405 028000* NEXT LINE USES LESS THAN FULL SYNTAX CMP02910 00406 028100* INSERT M RECORD INTO THE-RELATIONSHIP. CMP02920 00407 ENTER LINKAGE. 00408 CALL XR7DMS USING IDBMSCOM (44) 00409 SR102 00410 THE-RELATIONSHIP. 00411 ENTER COBOL. 00412 028200 MOVE 'INSERT' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP02930 00413 028300 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP02940 00414 028400 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP02950 00415 028500 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP02960 00416 028600 DISPLAY ' 060 END' UPON THE-PRINTER. CMP02970 00417 028700 TEST-070. CMP02980 00418 028800 DISPLAY ' 070 START (OBTAIN (#3,#4))' CMP02990 00419 028900 UPON THE-PRINTER. CMP03000 00420 029000 MOVE ALL '*' TO M. CMP03010 00422 029200 PERFORM INIT-SYSTEM-ITEMS. CMP03030 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00009 00423 029300* NEXT LINE USES LESS THAN FULL SYNTAX (UNNAMED RECORD) CMP03040 00424 029400* OBTAIN LAST RECORD OF THE-MINIMUM-AREA AREA. CMP03050 00425 ENTER LINKAGE. 00426 CALL XR7DMS USING IDBMSCOM (25) 00427 THE-MINIMUM-AREA 00428 IDBMSCOM (43). 00429 ENTER COBOL. 00430 029500 MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP03060 00431 029600 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP03070 00432 029700 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP03080 00433 029800 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP03090 00434 029900 MOVE SAVE-RECORD (7) TO EXPECTED. CMP03100 00435 030000 MOVE M TO FOUND. CMP03110 00436 030100 IF FOUND NOT = EXPECTED CMP03120 00437 030200 MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE CMP03130 00438 030300 PERFORM PRINT-COMP-ERROR-LINE. CMP03140 00439 030400 MOVE ALL '*' TO OWNR. CMP03150 00440 030500 PERFORM INIT-SYSTEM-ITEMS. CMP03160 00441 030600* OBTAIN OWNER RECORD OF THE-RELATIONSHIP SET. CMP03170 00442 ENTER LINKAGE. 00443 CALL XR7DMS USING IDBMSCOM (31) 00444 THE-RELATIONSHIP 00445 IDBMSCOM (43). 00446 ENTER COBOL. 00447 030700 MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP03180 00448 030800 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP03190 00449 030900 MOVE 'OWNR' TO EXPECTED-RECORD-NAME. CMP03200 00450 031000 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP03210 00451 031100 MOVE SAVE-RECORD (4) TO EXPECTED. CMP03220 00452 031200 MOVE OWNR TO FOUND CMP03230 00453 031300 IF FOUND NOT = EXPECTED CMP03240 00454 031400 MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE CMP03250 00455 031500 PERFORM PRINT-COMP-ERROR-LINE. CMP03260 00456 031600 MOVE ALL '*' TO M. CMP03270 00457 031700 PERFORM INIT-SYSTEM-ITEMS. CMP03280 00458 031800* NEXT LINE USES LESS THAN FULL SYNTAX (UNNAMED RECORD) CMP03290 00459 031900* OBTAIN FIRST RECORD OF THE-RELATIONSHIP SET. CMP03300 00460 ENTER LINKAGE. 00461 CALL XR7DMS USING IDBMSCOM (20) 00462 THE-RELATIONSHIP 00463 IDBMSCOM (43). 00464 ENTER COBOL. 00465 032000 MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP03310 00466 032100 MOVE SAVE-DBKEY (5) TO EXPECTED-KEY. CMP03320 00467 032200 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP03330 00468 032300 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP03340 00469 032400 MOVE SAVE-RECORD (5) TO EXPECTED. CMP03350 00470 032500 MOVE M TO FOUND. CMP03360 00471 032600 IF FOUND NOT = EXPECTED CMP03370 00472 032700 MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE CMP03380 00473 032800 PERFORM PRINT-COMP-ERROR-LINE. CMP03390 00474 032900 DISPLAY ' 070 END' UPON THE-PRINTER. CMP03400 00476 033100 DISPLAY ' 080 START (FIND (#3);EXPLORE SET)' CMP03420 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00010 00477 033200 UPON THE-PRINTER. CMP03430 00478 033300 PERFORM INIT-SYSTEM-ITEMS. CMP03440 00479 033400* NEXT LINE USES LESS THAN FULL SYNTAX (UNNAMED RECORD) CMP03450 00480 033500* FIND NEXT RECORD OF THE-RELATIONSHIP SET. CMP03460 00481 ENTER LINKAGE. 00482 CALL XR7DMS USING IDBMSCOM (14) 00483 THE-RELATIONSHIP. 00484 ENTER COBOL. 00485 033600 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP03470 00486 033700 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP03480 00487 033800 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP03490 00488 033900 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP03500 00489 034000 PERFORM INIT-SYSTEM-ITEMS. CMP03510 00490 034100* NEXT LINE USES LESS THAN FULL SYNTAX CMP03520 00491 034200* FIND NEXT OF THE-RELATIONSHIP SET. CMP03530 00492 ENTER LINKAGE. 00493 CALL XR7DMS USING IDBMSCOM (14) 00494 THE-RELATIONSHIP. 00495 ENTER COBOL. 00496 034300 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP03540 00497 034400 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP03550 00498 034500 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP03560 00499 034600 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP03570 00500 034700 PERFORM INIT-SYSTEM-ITEMS. CMP03580 00501 034800* NEXT LINE USES MINIMUM SYNTAX CMP03590 00502 034900* FIND NEXT THE-RELATIONSHIP SET. CMP03600 00503 ENTER LINKAGE. 00504 CALL XR7DMS USING IDBMSCOM (14) 00505 THE-RELATIONSHIP. 00506 ENTER COBOL. 00507 035000 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP03610 00508 035100 MOVE '0307' TO EXPECTED. CMP03620 00509 035200 MOVE ERROR-STATUS TO FOUND. CMP03630 00510 035300 IF FOUND NOT = EXPECTED CMP03640 00511 035400 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP03650 00512 035500 PERFORM PRINT-COMP-ERROR-LINE. CMP03660 00513 035600 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP03670 00514 035700 MOVE DBKEY TO FOUND-KEY. CMP03680 00515 035800 IF FOUND-KEY NOT = EXPECTED-KEY CMP03690 00516 035900 MOVE '*DBKEY INCORRECT' TO CEL-MESSAGE CMP03700 00517 036000 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP03710 00518 036100 MOVE 'OWNR' TO EXPECTED. CMP03720 00519 036200 MOVE RECORD-NAME TO FOUND. CMP03730 00520 036300 IF FOUND NOT = EXPECTED CMP03740 00521 036400 MOVE '*RECORD-NAME INCORRECT' TO CEL-MESSAGE CMP03750 00522 036500 PERFORM PRINT-COMP-ERROR-LINE. CMP03760 00523 036600 MOVE 'THE-MINIMUM-AREA' TO EXPECTED. CMP03770 00524 036700 MOVE AREA-NAME TO FOUND. CMP03780 00525 036800 IF FOUND NOT = EXPECTED CMP03790 00526 036900 MOVE '*AREA-NAME INCORRECT' TO CEL-MESSAGE CMP03800 00527 037000 PERFORM PRINT-COMP-ERROR-LINE. CMP03810 00528 037100 MOVE SPACES TO EXPECTED. CMP03820 00530 037300 IF FOUND NOT = EXPECTED CMP03840 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00011 00531 037400 MOVE '*ERROR-SET NOT SPACES' TO CEL-MESSAGE CMP03850 00532 037500 PERFORM PRINT-COMP-ERROR-LINE. CMP03860 00533 037600 MOVE SPACES TO EXPECTED. CMP03870 00534 037700 MOVE ERROR-RECORD TO FOUND. CMP03880 00535 037800 IF FOUND NOT = EXPECTED CMP03890 00536 037900 MOVE '*ERROR-RECORD NOT SPACES' TO CEL-MESSAGE CMP03900 00537 038000 PERFORM PRINT-COMP-ERROR-LINE. CMP03910 00538 038100 MOVE SPACES TO EXPECTED. CMP03920 00539 038200 MOVE ERROR-AREA TO FOUND. CMP03930 00540 038300 IF FOUND NOT = EXPECTED CMP03940 00541 038400 MOVE '*ERROR-AREA NOT SPACES' TO CEL-MESSAGE CMP03950 00542 038500 PERFORM PRINT-COMP-ERROR-LINE. CMP03960 00543 038600 DISPLAY ' 080 END' UPON THE-PRINTER. CMP03970 00544 038700 TEST-090. CMP03980 00545 038800 DISPLAY ' 090 START (FIND (#3);NAMED RECORD)' CMP03990 00546 038900 UPON THE-PRINTER. CMP04000 00547 039000 PERFORM INIT-SYSTEM-ITEMS. CMP04010 00548 039100* FIND PRIOR A-MINIMUM-RECORD RECORD OF THE-MINIMUM-AREA AREA. CMP04020 00549 ENTER LINKAGE. 00550 CALL XR7DMS USING IDBMSCOM (13) 00551 SR100 00552 THE-MINIMUM-AREA. 00553 ENTER COBOL. 00554 039200 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP04030 00555 039300 MOVE SAVE-DBKEY (2) TO EXPECTED-KEY. CMP04040 00556 039400 MOVE 'A-MINIMUM-RECORD' TO EXPECTED-RECORD-NAME. CMP04050 00557 039500 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP04060 00558 039600 DISPLAY ' 090 END' UPON THE-PRINTER. CMP04070 00559 039700 TEST-100. CMP04080 00560 039800 DISPLAY ' 100 START (MOVE)' UPON THE-PRINTER. CMP04090 00561 039900 MOVE INIT-DBKEY TO FOUND-KEY. CMP04100 00562 040000* MOVE CURRENCY STATUS FOR RUN-UNIT TO FOUND-KEY. CMP04110 00563 ENTER LINKAGE. 00564 CALL XR7DMS USING IDBMSCOM (54) 00565 FOUND-KEY. 00566 ENTER COBOL. 00567 040100 MOVE 'MOVE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP04120 00568 040200 MOVE SAVE-DBKEY (2) TO EXPECTED-KEY. CMP04130 00569 040300 IF FOUND-KEY NOT = EXPECTED-KEY CMP04140 00570 040400 MOVE '*CURRENT OF RUN-UNIT INCORRECT' TO CEL-MESSAGE CMP04150 00571 040500 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP04160 00572 040600 MOVE INIT-DBKEY TO FOUND-KEY. CMP04170 00573 040700 PERFORM INIT-SYSTEM-ITEMS. CMP04180 00574 040800* NEXT LINE USES LESS THAN FULL SYNTAX CMP04190 00575 040900* MOVE CURRENCY STATUS A-MINIMUM-RECORD RECORD TO FOUND-KEY. CMP04200 00576 ENTER LINKAGE. 00577 CALL XR7DMS USING IDBMSCOM (55) 00578 SR100 00579 FOUND-KEY. 00580 ENTER COBOL. 00581 041000 MOVE 'MOVE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP04210 00582 041100 MOVE SAVE-DBKEY (2) TO EXPECTED-KEY. CMP04220 00584 041300 MOVE '*CURRENT OF RECORD INCORRECT' TO CEL-MESSAGE CMP04240 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00012 00585 041400 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP04250 00586 041500 MOVE '0000' TO EXPECTED. CMP04260 00587 041600 MOVE ERROR-STATUS TO FOUND. CMP04270 00588 041700 IF FOUND NOT = EXPECTED CMP04280 00589 041800 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP04290 00590 041900 PERFORM PRINT-COMP-ERROR-LINE. CMP04300 00591 042000 MOVE INIT-DBKEY TO EXPECTED-KEY. CMP04310 00592 042100 MOVE DBKEY TO FOUND-KEY. CMP04320 00593 042200 IF FOUND-KEY NOT = EXPECTED-KEY CMP04330 00594 042300 MOVE '*DBKEY CHANGED' TO CEL-MESSAGE CMP04340 00595 042400 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP04350 00596 042500 MOVE ALL '*' TO EXPECTED. CMP04360 00597 042600 MOVE RECORD-NAME TO FOUND. CMP04370 00598 042700 IF FOUND NOT = EXPECTED CMP04380 00599 042800 MOVE '*RECORD-NAME CHANGED' TO CEL-MESSAGE CMP04390 00600 042900 PERFORM PRINT-COMP-ERROR-LINE. CMP04400 00601 043000 MOVE ALL '*' TO EXPECTED. CMP04410 00602 043100 MOVE AREA-NAME TO FOUND. CMP04420 00603 043200 IF FOUND NOT = EXPECTED CMP04430 00604 043300 MOVE '*AREA-NAME CHANGED' TO CEL-MESSAGE CMP04440 00605 043400 PERFORM PRINT-COMP-ERROR-LINE. CMP04450 00606 043500 MOVE SPACES TO EXPECTED. CMP04460 00607 043600 MOVE ERROR-SET TO FOUND. CMP04470 00608 043700 IF FOUND NOT = EXPECTED CMP04480 00609 043800 MOVE '*ERROR-SET NOT SPACES' TO CEL-MESSAGE CMP04490 00610 043900 PERFORM PRINT-COMP-ERROR-LINE. CMP04500 00611 044000 MOVE SPACES TO EXPECTED. CMP04510 00612 044100 MOVE ERROR-RECORD TO FOUND. CMP04520 00613 044200 IF FOUND NOT = EXPECTED CMP04530 00614 044300 MOVE '*ERROR-RECORD NOT SPACES' TO CEL-MESSAGE CMP04540 00615 044400 PERFORM PRINT-COMP-ERROR-LINE. CMP04550 00616 044500 MOVE SPACES TO EXPECTED. CMP04560 00617 044600 MOVE ERROR-AREA TO FOUND. CMP04570 00618 044700 IF FOUND NOT = EXPECTED CMP04580 00619 044800 MOVE '*ERROR-AREA NOT SPACES' TO CEL-MESSAGE CMP04590 00620 044900 PERFORM PRINT-COMP-ERROR-LINE. CMP04600 00621 045000 MOVE INIT-DBKEY TO EXPECTED-KEY. CMP04610 00622 045100 MOVE INIT-DBKEY TO FOUND-KEY. CMP04620 00623 045200 DISPLAY ' 100 END' UPON THE-PRINTER. CMP04630 00624 045300 TEST-110. CMP04640 00625 045400 DISPLAY ' 110 START (FIND (#5))' UPON THE-PRINTER. CMP04650 00626 045500 MOVE 123 TO SORT-FIELD. CMP04660 00627 045600 PERFORM INIT-SYSTEM-ITEMS. CMP04670 00628 045700* FIND M RECORD. CMP04680 00629 ENTER LINKAGE. 00630 CALL XR7DMS USING IDBMSCOM (32) 00631 SR102. 00632 ENTER COBOL. 00633 045800 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP04690 00634 045900 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP04700 00635 046000 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP04710 00636 046100 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP04720 00638 046300 PERFORM INIT-SYSTEM-ITEMS. CMP04740 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00013 00639 046400* FIND NEXT DUPLICATE M RECORD. CMP04750 00640 ENTER LINKAGE. 00641 CALL XR7DMS USING IDBMSCOM (50) 00642 SR102. 00643 ENTER COBOL. 00644 046500 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP04760 00645 046600 MOVE SAVE-DBKEY (5) TO EXPECTED-KEY. CMP04770 00646 046700 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP04780 00647 046800 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP04790 00648 046900 DISPLAY ' 110 END' UPON THE-PRINTER. CMP04800 00649 047000 TEST-120. CMP04810 00650 047100 DISPLAY ' 120 START (FIND (#2))' UPON THE-PRINTER. CMP04820 00651 047200 PERFORM INIT-SYSTEM-ITEMS. CMP04830 00652 047300* FIND CURRENT OF THE-RELATIONSHIP SET. CMP04840 00653 ENTER LINKAGE. 00654 CALL XR7DMS USING IDBMSCOM (08) 00655 THE-RELATIONSHIP. 00656 ENTER COBOL. 00657 047400 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP04850 00658 047500 MOVE SAVE-DBKEY (5) TO EXPECTED-KEY. CMP04860 00659 047600 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP04870 00660 047700 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP04880 00661 047800 DISPLAY ' 120 END' UPON THE-PRINTER. CMP04890 00662 047900 TEST-130. CMP04900 00663 048000 DISPLAY ' 130 START (FIND (#6))' UPON THE-PRINTER. CMP04910 00664 048100 MOVE 9999 TO SORT-FIELD. CMP04920 00665 048200 PERFORM INIT-SYSTEM-ITEMS. CMP04930 00666 048300* FIND M RECORD VIA CURRENT OF THE-RELATIONSHIP SET CMP04940 00667 048400* USING SORT-FIELD. CMP04950 00668 ENTER LINKAGE. 00669 CALL XR7DMS USING IDBMSCOM (51) 00670 SR102 00671 THE-RELATIONSHIP 00672 SORT-FIELD. 00673 ENTER COBOL. 00674 048500 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP04960 00675 048600 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP04970 00676 048700 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP04980 00677 048800 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP04990 00678 048900 DISPLAY ' 130 END' UPON THE-PRINTER. CMP05000 00679 049000 TEST-140. CMP05010 00680 049100 DISPLAY ' 140 START (IF (#1))' UPON THE-PRINTER. CMP05020 00681 049200 PERFORM INIT-SYSTEM-ITEMS. CMP05030 00682 049300* FIND OWNR RECORD USING SAVE-DBKEY (3). CMP05040 00683 ENTER LINKAGE. 00684 CALL XR7DMS USING IDBMSCOM (06) 00685 SR9999 00686 SAVE-DBKEY 00687 (3). 00688 ENTER COBOL. 00689 049400 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP05050 00690 049500 MOVE SAVE-DBKEY (3) TO EXPECTED-KEY. CMP05060 00692 049700 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP05080 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00014 00693 049800 PERFORM INIT-SYSTEM-ITEMS. CMP05090 00694 049900* IF THE-RELATIONSHIP SET EMPTY GO TO TEST-140-IF-TRUE. CMP05100 00695 ENTER LINKAGE. 00696 CALL XR7DMS USING IDBMSCOM (64) 00697 THE-RELATIONSHIP. 00698 ENTER COBOL. 00699 IF ERROR-STATUS EQUAL TO ZERO 00700 GO TO TEST-140-IF-TRUE. 00701 050000 MOVE 'IF ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP05110 00702 050100 MOVE '*IF BRANCH NOT TAKEN FOR EMPTY SET' TO CEL-MESSAGE. CMP05120 00703 050200 PERFORM PRINT-COMP-ERROR-LINE. CMP05130 00704 050300 GO TO TEST-140-EXIT. CMP05140 00705 050400 TEST-140-IF-TRUE. CMP05150 00706 050500 MOVE 'IF ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP05160 00707 050600 MOVE '0000' TO EXPECTED. CMP05170 00708 050700 MOVE ERROR-STATUS TO FOUND. CMP05180 00709 050800 IF FOUND NOT = EXPECTED CMP05190 00710 050900 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP05200 00711 051000 PERFORM PRINT-COMP-ERROR-LINE. CMP05210 00712 051100 MOVE INIT-DBKEY TO EXPECTED-KEY. CMP05220 00713 051200 MOVE DBKEY TO FOUND-KEY. CMP05230 00714 051300 IF FOUND-KEY NOT = EXPECTED-KEY CMP05240 00715 051400 MOVE '*DBKEY CHANGED' TO CEL-MESSAGE CMP05250 00716 051500 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP05260 00717 051600 MOVE ALL '*' TO EXPECTED. CMP05270 00718 051700 MOVE RECORD-NAME TO FOUND. CMP05280 00719 051800 IF FOUND NOT = EXPECTED CMP05290 00720 051900 MOVE '*RECORD-NAME CHANGED' TO CEL-MESSAGE CMP05300 00721 052000 PERFORM PRINT-COMP-ERROR-LINE. CMP05310 00722 052100 MOVE ALL '*' TO EXPECTED. CMP05320 00723 052200 MOVE AREA-NAME TO FOUND. CMP05330 00724 052300 IF FOUND NOT = EXPECTED CMP05340 00725 052400 MOVE '*AREA-NAME CHANGED' TO CEL-MESSAGE CMP05350 00726 052500 PERFORM PRINT-COMP-ERROR-LINE. CMP05360 00727 052600 MOVE SPACES TO EXPECTED. CMP05370 00728 052700 MOVE ERROR-SET TO FOUND. CMP05380 00729 052800 IF FOUND NOT = EXPECTED CMP05390 00730 052900 MOVE '*ERROR-SET INCORRECT' TO CEL-MESSAGE CMP05400 00731 053000 PERFORM PRINT-COMP-ERROR-LINE. CMP05410 00732 053100 MOVE SPACES TO EXPECTED. CMP05420 00733 053200 MOVE ERROR-RECORD TO FOUND. CMP05430 00734 053300 IF FOUND NOT = EXPECTED CMP05440 00735 053400 MOVE '*ERROR-RECORD INCORRECT' TO CEL-MESSAGE CMP05450 00736 053500 PERFORM PRINT-COMP-ERROR-LINE. CMP05460 00737 053600 MOVE SPACES TO EXPECTED. CMP05470 00738 053700 MOVE ERROR-AREA TO FOUND. CMP05480 00739 053800 IF FOUND NOT = EXPECTED CMP05490 00740 053900 MOVE '*ERROR-AREA INCORRECT' TO CEL-MESSAGE CMP05500 00741 054000 PERFORM PRINT-COMP-ERROR-LINE. CMP05510 00742 054100 TEST-140-EXIT. CMP05520 00743 054200 DISPLAY ' 140 END' UPON THE-PRINTER. CMP05530 00744 054300 TEST-150. CMP05540 00746 054500 PERFORM INIT-SYSTEM-ITEMS. CMP05560 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00015 00747 054600* FIND M RECORD USING SAVE-DBKEY (7). CMP05570 00748 ENTER LINKAGE. 00749 CALL XR7DMS USING IDBMSCOM (06) 00750 SR102 00751 SAVE-DBKEY 00752 (7). 00753 ENTER COBOL. 00754 054700 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP05580 00755 054800 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP05590 00756 054900 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP05600 00757 055000 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP05610 00758 055100 PERFORM INIT-SYSTEM-ITEMS. CMP05620 00759 055200* IF RECORD NOT MEMBER OF THE-RELATIONSHIP SET CMP05630 00760 055300* GO TO TEST-150-IF-TRUE. CMP05640 00761 ENTER LINKAGE. 00762 CALL XR7DMS USING IDBMSCOM (62) 00763 THE-RELATIONSHIP. 00764 ENTER COBOL. 00765 IF ERROR-STATUS EQUAL TO '1601' 00766 GO TO TEST-150-IF-TRUE. 00767 055400 MOVE 'IF ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP05650 00768 055500 MOVE '0000' TO EXPECTED. CMP05660 00769 055600 MOVE ERROR-STATUS TO FOUND. CMP05670 00770 055700 IF FOUND NOT = EXPECTED CMP05680 00771 055800 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP05690 00772 055900 PERFORM PRINT-COMP-ERROR-LINE. CMP05700 00773 056000 MOVE INIT-DBKEY TO EXPECTED-KEY. CMP05710 00774 056100 MOVE DBKEY TO FOUND-KEY. CMP05720 00775 056200 IF FOUND-KEY NOT = EXPECTED-KEY CMP05730 00776 056300 MOVE '*DBKEY CHANGED' TO CEL-MESSAGE CMP05740 00777 056400 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP05750 00778 056500 MOVE ALL '*' TO EXPECTED. CMP05760 00779 056600 MOVE RECORD-NAME TO FOUND. CMP05770 00780 056700 IF FOUND NOT = EXPECTED CMP05780 00781 056800 MOVE '*RECORD-NAME CHANGED' TO CEL-MESSAGE CMP05790 00782 056900 PERFORM PRINT-COMP-ERROR-LINE. CMP05800 00783 057000 MOVE ALL '*' TO EXPECTED. CMP05810 00784 057100 MOVE AREA-NAME TO FOUND. CMP05820 00785 057200 IF FOUND NOT = EXPECTED CMP05830 00786 057300 MOVE '*AREA-NAME CHANGED' TO CEL-MESSAGE CMP05840 00787 057400 PERFORM PRINT-COMP-ERROR-LINE. CMP05850 00788 057500 MOVE SPACES TO EXPECTED. CMP05860 00789 057600 MOVE ERROR-SET TO FOUND. CMP05870 00790 057700 IF FOUND NOT = EXPECTED CMP05880 00791 057800 MOVE '*ERROR-SET INCORRECT' TO CEL-MESSAGE CMP05890 00792 057900 PERFORM PRINT-COMP-ERROR-LINE. CMP05900 00793 058000 MOVE SPACES TO EXPECTED. CMP05910 00794 058100 MOVE ERROR-RECORD TO FOUND. CMP05920 00795 058200 IF FOUND NOT = EXPECTED CMP05930 00796 058300 MOVE '*ERROR-RECORD INCORRECT' TO CEL-MESSAGE CMP05940 00797 058400 PERFORM PRINT-COMP-ERROR-LINE. CMP05950 00798 058500 MOVE SPACES TO EXPECTED. CMP05960 00800 058700 IF FOUND NOT = EXPECTED CMP05980 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00016 00801 058800 MOVE '*ERROR-AREA INCORRECT' TO CEL-MESSAGE CMP05990 00802 058900 PERFORM PRINT-COMP-ERROR-LINE. CMP06000 00803 059000 GO TO TEST-150-EXIT. CMP06010 00804 059100 TEST-150-IF-TRUE. CMP06020 00805 059200 MOVE 'IF ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06030 00806 059300 MOVE '*IF BRANCH TAKEN FOR OCCUPIED SET' TO CEL-MESSAGE CMP06040 00807 059400 PERFORM PRINT-COMP-ERROR-LINE. CMP06050 00808 059500 TEST-150-EXIT. CMP06060 00809 059600 DISPLAY ' 150 END' UPON THE-PRINTER. CMP06070 00810 059700 TEST-160. CMP06080 00811 059800 DISPLAY ' 160 START (REMOVE)' UPON THE-PRINTER. CMP06090 00812 059900 PERFORM INIT-SYSTEM-ITEMS. CMP06100 00813 060000* REMOVE M RECORD FROM THE-RELATIONSHIP SET. CMP06110 00814 ENTER LINKAGE. 00815 CALL XR7DMS USING IDBMSCOM (46) 00816 SR102 00817 THE-RELATIONSHIP. 00818 ENTER COBOL. 00819 060100 MOVE 'REMOVE' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06120 00820 060200 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP06130 00821 060300 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP06140 00822 060400 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06150 00823 060500 PERFORM INIT-SYSTEM-ITEMS. CMP06160 00824 060600* NEXT LINE USES MINIMUM SYNTAX CMP06170 00825 060700* FIND LAST M THE-RELATIONSHIP SET. CMP06180 00826 ENTER LINKAGE. 00827 CALL XR7DMS USING IDBMSCOM (22) 00828 SR102 00829 THE-RELATIONSHIP. 00830 ENTER COBOL. 00831 060800 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06190 00832 060900 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP06200 00833 061000 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP06210 00834 061100 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06220 00835 061200 DISPLAY ' 160 END' UPON THE-PRINTER. CMP06230 00836 061300 TEST-170. CMP06240 00837 061400 DISPLAY ' 170 START (MODIFY;CHANGE CONTENT,CALC KEY,SET KEY)'CMP06250 00838 061500 UPON THE-PRINTER. CMP06260 00839 061600 PERFORM INIT-SYSTEM-ITEMS. CMP06270 00840 061700* OBTAIN M RECORD USING SAVE-DBKEY (6). CMP06280 00841 ENTER LINKAGE. 00842 CALL XR7DMS USING IDBMSCOM (06) 00843 SR102 00844 SAVE-DBKEY 00845 (6) 00846 IDBMSCOM (43). 00847 ENTER COBOL. 00848 061800 MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06290 00849 061900 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP06300 00850 062000 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP06310 00851 062100 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06320 00852 062200 MOVE 122 TO SORT-FIELD. CMP06330 00854 062400 PERFORM INIT-SYSTEM-ITEMS. CMP06350 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00017 00855 062500* MODIFY M RECORD. CMP06360 00856 ENTER LINKAGE. 00857 CALL XR7DMS USING IDBMSCOM (35) 00858 SR102. 00859 ENTER COBOL. 00860 062600 MOVE 'MODIFY' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06370 00861 062700 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP06380 00862 062800 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP06390 00863 062900 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06400 00864 063000 MOVE ALL '*' TO M. CMP06410 00865 063100 MOVE 122 TO SORT-FIELD. CMP06420 00866 063200 PERFORM INIT-SYSTEM-ITEMS. CMP06430 00867 063300* OBTAIN M RECORD. CMP06440 00868 ENTER LINKAGE. 00869 CALL XR7DMS USING IDBMSCOM (32) 00870 SR102 00871 IDBMSCOM (43). 00872 ENTER COBOL. 00873 063400 MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06450 00874 063500 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP06460 00875 063600 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP06470 00876 063700 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06480 00877 063800 MOVE SAVE-RECORD (6) TO EXPECTED. CMP06490 00878 063900 MOVE M TO FOUND. CMP06500 00879 064000 IF FOUND NOT = EXPECTED CMP06510 00880 064100 MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE CMP06520 00881 064200 PERFORM PRINT-COMP-ERROR-LINE. CMP06530 00882 064300 MOVE ALL '*' TO M. CMP06540 00883 064400 MOVE 123 TO SORT-FIELD. CMP06550 00884 064500 PERFORM INIT-SYSTEM-ITEMS. CMP06560 00885 064600* OBTAIN M RECORD. CMP06570 00886 ENTER LINKAGE. 00887 CALL XR7DMS USING IDBMSCOM (32) 00888 SR102 00889 IDBMSCOM (43). 00890 ENTER COBOL. 00891 064700 MOVE 'OBTAIN' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06580 00892 064800 MOVE SAVE-DBKEY (5) TO EXPECTED-KEY. CMP06590 00893 064900 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP06600 00894 065000 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06610 00895 065100 MOVE SAVE-RECORD (5) TO EXPECTED. CMP06620 00896 065200 MOVE M TO FOUND. CMP06630 00897 065300 IF FOUND NOT = EXPECTED CMP06640 00898 065400 MOVE '*RECORD CONTENT INCORRECT' TO CEL-MESSAGE CMP06650 00899 065500 PERFORM PRINT-COMP-ERROR-LINE. CMP06660 00900 065600 PERFORM INIT-SYSTEM-ITEMS. CMP06670 00901 065700* NEXT LINE USES LESS THAN FULL SYNTAX CMP06680 00902 065800* FIND FIRST RECORD THE-RELATIONSHIP SET. CMP06690 00903 ENTER LINKAGE. 00904 CALL XR7DMS USING IDBMSCOM (20) 00905 THE-RELATIONSHIP. 00906 ENTER COBOL. 00908 066000 MOVE SAVE-DBKEY (6) TO EXPECTED-KEY. CMP06710 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00018 00909 066100 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP06720 00910 066200 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06730 00911 066300 DISPLAY ' 170 END' UPON THE-PRINTER. CMP06740 00912 066400 TEST-180. CMP06750 00913 066500 DISPLAY ' 180 START (DELETE (SELECTIVE))' UPON THE-PRINTER. CMP06760 00914 066600 PERFORM INIT-SYSTEM-ITEMS. CMP06770 00915 066700* FIND OWNR RECORD USING SAVE-DBKEY (4). CMP06780 00916 ENTER LINKAGE. 00917 CALL XR7DMS USING IDBMSCOM (06) 00918 SR9999 00919 SAVE-DBKEY 00920 (4). 00921 ENTER COBOL. 00922 066800 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06790 00923 066900 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP06800 00924 067000 MOVE 'OWNR' TO EXPECTED-RECORD-NAME. CMP06810 00925 067100 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06820 00926 067200 PERFORM INIT-SYSTEM-ITEMS. CMP06830 00927 067300* DELETE OWNR RECORD SELECTIVE. CMP06840 00928 ENTER LINKAGE. 00929 CALL XR7DMS USING IDBMSCOM (53) 00930 SR9999. 00931 ENTER COBOL. 00932 067400 MOVE 'DELETE' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP06850 00933 067500 MOVE -1 TO EXPECTED-KEY. CMP06860 00934 067600 MOVE 'OWNR' TO EXPECTED-RECORD-NAME. CMP06870 00935 067700 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP06880 00936 067800* MOVE CURRENCY STATUS FOR RUN-UNIT TO FOUND-KEY. CMP06890 00937 ENTER LINKAGE. 00938 CALL XR7DMS USING IDBMSCOM (54) 00939 FOUND-KEY. 00940 ENTER COBOL. 00941 067900 MOVE -1 TO EXPECTED-KEY. CMP06900 00942 068000 IF FOUND-KEY NOT = EXPECTED-KEY CMP06910 00943 068100 MOVE '*CURRENT OF RUN-UNIT INCORRECT' TO CEL-MESSAGE CMP06920 00944 068200 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP06930 00945 068300* MOVE CURRENCY STATUS FOR OWNR RECORD TO FOUND-KEY. CMP06940 00946 ENTER LINKAGE. 00947 CALL XR7DMS USING IDBMSCOM (55) 00948 SR9999 00949 FOUND-KEY. 00950 ENTER COBOL. 00951 068400 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP06950 00952 068500 IF FOUND-KEY NOT = EXPECTED-KEY CMP06960 00953 068600 MOVE '*CURRENT OF OWNR RECORD INCORRECT' TO CEL-MESSAGE CMP06970 00954 068700 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP06980 00955 068800* MOVE CURRENCY STATUS FOR M RECORD TO FOUND-KEY. CMP06990 00956 ENTER LINKAGE. 00957 CALL XR7DMS USING IDBMSCOM (55) 00958 SR102 00959 FOUND-KEY. 00960 ENTER COBOL. 00962 069000 IF FOUND-KEY NOT = EXPECTED-KEY CMP07010 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00019 00963 069100 MOVE '*CURRENT OF M RECORD INCORRECT' TO CEL-MESSAGE CMP07020 00964 069200 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP07030 00965 069300* MOVE CURRENCY STATUS FOR THE-MINIMUM-AREA AREA TO FOUND-KEY. CMP07040 00966 ENTER LINKAGE. 00967 CALL XR7DMS USING IDBMSCOM (56) 00968 THE-MINIMUM-AREA 00969 FOUND-KEY. 00970 ENTER COBOL. 00971 069400 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP07050 00972 069500 IF FOUND-KEY NOT = EXPECTED-KEY CMP07060 00973 069600 MOVE '*CURRENT OF AREA INCORRECT' TO CEL-MESSAGE CMP07070 00974 069700 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP07080 00975 069800* MOVE CURRENCY STATUS FOR THE-RELATIONSHIP SET TO FOUND-KEY. CMP07090 00976 ENTER LINKAGE. 00977 CALL XR7DMS USING IDBMSCOM (57) 00978 THE-RELATIONSHIP 00979 FOUND-KEY. 00980 ENTER COBOL. 00981 069900 MOVE SAVE-DBKEY (4) TO EXPECTED-KEY. CMP07100 00982 070000 IF FOUND-KEY NOT = EXPECTED-KEY CMP07110 00983 070100 MOVE '*CURRENT OF SET INCORRECT' TO CEL-MESSAGE CMP07120 00984 070200 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP07130 00985 070300 PERFORM INIT-SYSTEM-ITEMS. CMP07140 00986 070400* FIND OWNR RECORD USING SAVE-DBKEY (4). CMP07150 00987 ENTER LINKAGE. 00988 CALL XR7DMS USING IDBMSCOM (06) 00989 SR9999 00990 SAVE-DBKEY 00991 (4). 00992 ENTER COBOL. 00993 070500 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP07160 00994 070600 MOVE '0326' TO EXPECTED. CMP07170 00995 070700 MOVE ERROR-STATUS TO FOUND. CMP07180 00996 070800 IF FOUND NOT = EXPECTED CMP07190 00997 070900 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP07200 00998 071000 PERFORM PRINT-COMP-ERROR-LINE. CMP07210 00999 071100 PERFORM INIT-SYSTEM-ITEMS. CMP07220 01000 071200* FIND M RECORD USING SAVE-DBKEY (5). CMP07230 01001 ENTER LINKAGE. 01002 CALL XR7DMS USING IDBMSCOM (06) 01003 SR102 01004 SAVE-DBKEY 01005 (5). 01006 ENTER COBOL. 01007 071300 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP07240 01008 071400 MOVE '0326' TO EXPECTED. CMP07250 01009 071500 MOVE ERROR-STATUS TO FOUND. CMP07260 01010 071600 IF FOUND NOT = EXPECTED CMP07270 01011 071700 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP07280 01012 071800 PERFORM PRINT-COMP-ERROR-LINE. CMP07290 01013 071900 PERFORM INIT-SYSTEM-ITEMS. CMP07300 01014 072000* FIND M RECORD USING SAVE-DBKEY (6). CMP07310 01016 CALL XR7DMS USING IDBMSCOM (06) LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00020 01017 SR102 01018 SAVE-DBKEY 01019 (6). 01020 ENTER COBOL. 01021 072100 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP07320 01022 072200 MOVE '0326' TO EXPECTED. CMP07330 01023 072300 MOVE ERROR-STATUS TO FOUND. CMP07340 01024 072400 IF FOUND NOT = EXPECTED CMP07350 01025 072500 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP07360 01026 072600 PERFORM PRINT-COMP-ERROR-LINE. CMP07370 01027 072700 PERFORM INIT-SYSTEM-ITEMS. CMP07380 01028 072800* FIND M RECORD USING SAVE-DBKEY (7). CMP07390 01029 ENTER LINKAGE. 01030 CALL XR7DMS USING IDBMSCOM (06) 01031 SR102 01032 SAVE-DBKEY 01033 (7). 01034 ENTER COBOL. 01035 072900 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP07400 01036 073000 MOVE SAVE-DBKEY (7) TO EXPECTED-KEY. CMP07410 01037 073100 MOVE 'M' TO EXPECTED-RECORD-NAME. CMP07420 01038 073200 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP07430 01039 073300 MOVE 123 TO SORT-FIELD. CMP07440 01040 073400 PERFORM INIT-SYSTEM-ITEMS. CMP07450 01041 073500* FIND M RECORD. CMP07460 01042 ENTER LINKAGE. 01043 CALL XR7DMS USING IDBMSCOM (32) 01044 SR102. 01045 ENTER COBOL. 01046 073600 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP07470 01047 073700 MOVE '0326' TO EXPECTED. CMP07480 01048 073800 MOVE ERROR-STATUS TO FOUND. CMP07490 01049 073900 IF FOUND NOT = EXPECTED CMP07500 01050 074000 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP07510 01051 074100 PERFORM PRINT-COMP-ERROR-LINE. CMP07520 01052 074200 PERFORM INIT-SYSTEM-ITEMS. CMP07530 01053 074300* FIND FIRST M RECORD OF THE-MINIMUM-AREA AREA. CMP07540 01054 ENTER LINKAGE. 01055 CALL XR7DMS USING IDBMSCOM (19) 01056 SR102 01057 THE-MINIMUM-AREA. 01058 ENTER COBOL. 01059 074400 MOVE 'FIND ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP07550 01060 074500 MOVE '0000' TO EXPECTED. CMP07560 01061 074600 MOVE ERROR-STATUS TO FOUND. CMP07570 01062 074700 IF FOUND NOT = EXPECTED CMP07580 01063 074800 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP07590 01064 074900 PERFORM PRINT-COMP-ERROR-LINE. CMP07600 01065 075000 DISPLAY ' 180 END' UPON THE-PRINTER. CMP07610 01066 075100 TEST-190. CMP07620 01067 075200 DISPLAY ' 190 START (CALL DMS-STATUS SECTION)' CMP07630 01068 075300 UPON THE-PRINTER. CMP07640 01070 075500 MOVE ZEROS TO ERROR-STATUS. CMP07660 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00021 01071 075600 PERFORM DMS-STATUS. CMP07670 01072 075700 MOVE SPACE TO EXPECTED. CMP07680 01073 075800 MOVE DMS-STATUS-INDICATOR TO FOUND. CMP07690 01074 075900 IF FOUND NOT = EXPECTED CMP07700 01075 076000 MOVE '*DMS-STATUS SECTION MALFUNCTION' TO CEL-MESSAGE CMP07710 01076 076100 PERFORM PRINT-COMP-ERROR-LINE. CMP07720 01077 076200 DISPLAY ' 190 END' UPON THE-PRINTER. CMP07730 01078 076300 TEST-200. CMP07740 01079 076400 DISPLAY ' 200 START (CLOSE)' UPON THE-PRINTER. CMP07750 01080 076500 PERFORM INIT-SYSTEM-ITEMS. CMP07760 01081 076600* CLOSE ALL AREAS. CMP07770 01082 ENTER LINKAGE. 01083 CALL XR7DMS USING IDBMSCOM (02). 01084 ENTER COBOL. 01085 076700 MOVE 'CLOSE ' TO SL-FUNCTION. PERFORM PRINT-STATUS-LINE. CMP07780 01086 076800 MOVE -1 TO EXPECTED-KEY. CMP07790 01087 076900 MOVE SPACES TO EXPECTED-RECORD-NAME. CMP07800 01088 077000 PERFORM EXPECT-SUCCESSFUL-FUNCTION. CMP07810 01089 077100 DISPLAY ' 200 END' UPON THE-PRINTER. CMP07820 01090 077200 TEST-210. CMP07830 01091 077300 DISPLAY ' 210 START (REPORT RESULTS)' UPON THE-PRINTER. CMP07840 01092 077400 MOVE ERRORS TO RL-ERRORS. CMP07850 01093 077500 IF ERRORS = 0000 CMP07860 01094 077600 MOVE 'PASS' TO RL-RESULT CMP07870 01095 077700 ELSE MOVE 'FAIL' TO RL-RESULT. CMP07880 01096 077800 DISPLAY ' ' UPON THE-PRINTER. CMP07890 01097 077900 DISPLAY ' ' UPON THE-PRINTER. CMP07900 01098 078000 DISPLAY RESULT-LINE UPON THE-PRINTER. CMP07910 01099 078100 DISPLAY RESULT-LINE UPON THE-CONSOLE. CMP07920 01100 078200 DISPLAY ' ' UPON THE-PRINTER. CMP07930 01101 078300 DISPLAY ' ' UPON THE-PRINTER. CMP07940 01102 078400 DISPLAY ' 210 END' UPON THE-PRINTER. CMP07950 01103 081300 TERMINATION. CMP07960 01104 081400 STOP RUN. CMP07970 01105 081500 PRINT-COMP-ERROR-LINE. CMP07980 01106 081600 ADD 0001 TO ERRORS. CMP07990 01107 081700 MOVE EXPECTED TO CEL-EXPECTED-VALUE. CMP08000 01108 081800 MOVE FOUND TO CEL-FOUND-VALUE. CMP08010 01109 081900 DISPLAY COMPARISON-ERROR-LINE UPON THE-PRINTER. CMP08020 01110 082000 MOVE ALL '*' TO CEL-MESSAGE. CMP08030 01111 082100 MOVE SPACES TO EXPECTED. CMP08040 01112 082200 MOVE SPACES TO FOUND. CMP08050 01113 082300 MOVE INIT-DBKEY TO EXPECTED-KEY. CMP08060 01114 082400 MOVE INIT-DBKEY TO FOUND-KEY. CMP08070 01115 082500 PRINT-COMP-ERROR-LINE-WITH-KEY. CMP08080 01116 082600 DIVIDE EXPECTED-KEY BY 256 GIVING DBPAGE REMAINDER DBLINE. CMP08090 01117 082700 MOVE DBPAGE TO EDIT-PAGE. CMP08100 01118 082800 MOVE DBLINE TO EDIT-LINE. CMP08110 01119 082900 MOVE KEY-EDIT-AREA TO EXPECTED. CMP08120 01120 083000 DIVIDE FOUND-KEY BY 256 GIVING DBPAGE REMAINDER DBLINE. CMP08130 01121 083100 MOVE DBPAGE TO EDIT-PAGE. CMP08140 01122 083200 MOVE DBLINE TO EDIT-LINE. CMP08150 01124 083400 PERFORM PRINT-COMP-ERROR-LINE. CMP08170 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00022 01125 083500 PRINT-STATUS-LINE. CMP08180 01126 083600 MOVE ERROR-STATUS TO SL-ERROR-STATUS. CMP08190 01127 083700 DIVIDE DBKEY BY 256 GIVING DBPAGE REMAINDER DBLINE. CMP08200 01128 083800 MOVE DBPAGE TO SL-DBKEY-PAGE. CMP08210 01129 083900 MOVE DBLINE TO SL-DBKEY-LINE. CMP08220 01130 084000 MOVE RECORD-NAME TO SL-RECORD-NAME. CMP08230 01131 084100 MOVE AREA-NAME TO SL-AREA-NAME. CMP08240 01132 084200 MOVE ERROR-SET TO SL-ERROR-SET. CMP08250 01133 084300 MOVE ERROR-RECORD TO SL-ERROR-RECORD. CMP08260 01134 084400 MOVE ERROR-AREA TO SL-ERROR-AREA. CMP08270 01135 084500 DISPLAY STATUS-LINE UPON THE-PRINTER. CMP08280 01136 084600 MOVE ALL '*' TO SL-FUNCTION. CMP08290 01137 084700 INIT-SYSTEM-ITEMS. CMP08300 01138 084800 MOVE '****' TO ERROR-STATUS. CMP08310 01139 084900 MOVE INIT-DBKEY TO DBKEY. CMP08320 01140 085000 MOVE ALL '*' TO RECORD-NAME. CMP08330 01141 085100 MOVE ALL '*' TO AREA-NAME. CMP08340 01142 085200 MOVE ALL '*' TO ERROR-SET. CMP08350 01143 085300 MOVE ALL '*' TO ERROR-RECORD. CMP08360 01144 085400 MOVE ALL '*' TO ERROR-AREA. CMP08370 01145 085500 EXPECT-SUCCESSFUL-FUNCTION. CMP08380 01146 085600 MOVE 'VSBRUN ' TO EXPECTED. CMP08390 01147 085700 MOVE PROGRAM-NAME TO FOUND. CMP08400 01148 085800 IF FOUND NOT = EXPECTED CMP08410 01149 085900 MOVE '*PROGRAM-NAME INCORRECT' TO CEL-MESSAGE CMP08420 01150 086000 PERFORM PRINT-COMP-ERROR-LINE. CMP08430 01151 086100 MOVE '0000' TO EXPECTED. MOVE ERROR-STATUS TO FOUND. CMP08440 01152 086200 IF FOUND NOT = EXPECTED CMP08450 01153 086300 MOVE '*ERROR-STATUS INCORRECT' TO CEL-MESSAGE CMP08460 01154 086400 PERFORM PRINT-COMP-ERROR-LINE. CMP08470 01155 086500 MOVE DBKEY TO FOUND-KEY. CMP08480 01156 086600 IF FOUND-KEY NOT = EXPECTED-KEY CMP08490 01157 086700 MOVE '*DBKEY INCORRECT' TO CEL-MESSAGE CMP08500 01158 086800 PERFORM PRINT-COMP-ERROR-LINE-WITH-KEY. CMP08510 01159 086900 MOVE EXPECTED-RECORD-NAME TO EXPECTED. CMP08520 01160 087000 MOVE RECORD-NAME TO FOUND. CMP08530 01161 087100 IF FOUND NOT = EXPECTED CMP08540 01162 087200 MOVE '*RECORD-NAME INCORRECT' TO CEL-MESSAGE CMP08550 01163 087300 PERFORM PRINT-COMP-ERROR-LINE. CMP08560 01164 087400 MOVE 'THE-MINIMUM-AREA' TO EXPECTED. CMP08570 01165 087500 MOVE AREA-NAME TO FOUND. CMP08580 01166 087600 IF FOUND NOT = EXPECTED CMP08590 01167 087700 MOVE '*AREA-NAME INCORRECT' TO CEL-MESSAGE CMP08600 01168 087800 PERFORM PRINT-COMP-ERROR-LINE. CMP08610 01169 087900 MOVE SPACES TO EXPECTED. CMP08620 01170 088000 MOVE ERROR-SET TO FOUND. CMP08630 01171 088100 IF FOUND NOT = EXPECTED CMP08640 01172 088200 MOVE '*ERROR-SET NOT SPACES' TO CEL-MESSAGE CMP08650 01173 088300 PERFORM PRINT-COMP-ERROR-LINE. CMP08660 01174 088400 MOVE SPACES TO EXPECTED. CMP08670 01175 088500 MOVE ERROR-RECORD TO FOUND. CMP08680 01176 088600 IF FOUND NOT = EXPECTED CMP08690 01178 088800 PERFORM PRINT-COMP-ERROR-LINE. CMP08710 LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00023 01179 088900 MOVE SPACES TO EXPECTED. CMP08720 01180 089000 MOVE ERROR-AREA TO FOUND. CMP08730 01181 089100 IF FOUND NOT = EXPECTED CMP08740 01182 089200 MOVE '*ERROR-AREA NOT SPACES' TO CEL-MESSAGE CMP08750 01183 089300 PERFORM PRINT-COMP-ERROR-LINE. CMP08760 01184 089400 MOVE ALL '*' TO EXPECTED-RECORD-NAME. CMP08770 01185 089500 MOVE INIT-DBKEY TO EXPECTED-KEY. CMP08780 01186 089600 MOVE SPACES TO EXPECTED. CMP08790 01187 089700 MOVE SPACES TO FOUND. CMP08800 01188 089800 MOVE INIT-DBKEY TO EXPECTED-KEY. CMP08810 01189 089900 MOVE INIT-DBKEY TO FOUND-KEY. CMP08820 01190 090000* CMP08830 01191 090100 DMS-SUCCESS SECTION. CMP08840 01192 090200 DMS-SUCCESS-PARAGRAPH. CMP08850 01193 090300 MOVE SPACE TO DMS-STATUS-INDICATOR. CMP08860 01194 090400 DMS-SUCCESS-EXIT. EXIT. CMP08870 01195 090500* CMP08880 01196 090600 DMS-ABORT SECTION. CMP08890 01197 090700 DMS-ABORT-PARAGRAPH. CMP08900 01198 090800 DISPLAY 'DMS USER ABORT CODE ENTERED.' UPON THE-PRINTER. CMP08910 01199 090900 DISPLAY 'DMS USER ABORT CODE ENTERED.' UPON THE-CONSOLE. CMP08920 01200 091000 DMS-ABORT-EXIT. EXIT. CMP08930 01201 * 01202 * ******************************************************** 01203 * * DMS STATUS CHECK SECTION * 01204 * ******************************************************** 01205 * 01206 DMS-STATUS SECTION. 01207 STATUS-PARA. 01208 * 01209 IF ERROR-STATUS EQUAL TO ZEROS 01210 PERFORM DMS-SUCCESS GO TO ISABEX. 01211 DISPLAY '** DMS/90 RUN-UNIT TERMINATED BY DML ERROR' 01212 UPON THE-CONSOLE. 01213 DISPLAY ' PROGRAM NAME ------ ' PROGRAM-NAME 01214 UPON THE-CONSOLE. 01215 DISPLAY ' ERROR STATUS ------ ' ERROR-STATUS 01216 UPON THE-CONSOLE. 01217 DISPLAY ' ERROR RECORD ------ ' ERROR-RECORD 01218 UPON THE-CONSOLE. 01219 DISPLAY '** EXECUTE DBBAR IF DATA BASE WAS UPDATED' 01220 UPON THE-CONSOLE. 01221 DISPLAY '** DMS/90 RUN-UNIT TERMINATED BY DML ERROR' 01222 UPON THE-PRINTER. 01223 DISPLAY ' PROGRAM NAME ------ ' PROGRAM-NAME 01224 UPON THE-PRINTER. 01225 DISPLAY ' ERROR STATUS ------ ' ERROR-STATUS 01226 UPON THE-PRINTER. 01227 DISPLAY ' ERROR RECORD ------ ' ERROR-RECORD 01228 UPON THE-PRINTER. 01229 DISPLAY ' ERROR SET --------- ' ERROR-SET 01230 UPON THE-PRINTER. 01232 UPON THE-PRINTER. LINE NO. SEQ. SOURCE STATEMENT IDEN. PAGE 00024 01233 DISPLAY ' LAST GOOD RECORD -- ' RECORD-NAME 01234 UPON THE-PRINTER. 01235 DISPLAY ' LAST GOOD AREA ---- ' AREA-NAME 01236 UPON THE-PRINTER. 01237 DISPLAY '** EXECUTE DBBAR IF DATA BASE WAS UPDATED' 01238 UPON THE-PRINTER. 01239 PERFORM DMS-ABORT. 01240 * CLOSE ALL AREAS. 01241 ENTER LINKAGE. 01242 CALL 'XR7DMS' USING IDBMSCOM (02). 01243 ENTER COBOL. 01244 STOP RUN. 01245 * 01246 ISABEX. EXIT. 01247 * 01248 NOTE 01249 THIS IS THE END 01250 OF THE DMS STATUS CHECK SECTION. PROGRAM-ID VSBRUN COMPILED BY UNIVAC OS/3E COBOL COMPILER VERSION 04.00/04 DATE 21/06/08 TIME 09.50.23 LINE SVC ERROR DIAGNOSTIC MESSAGE PAGE 00025 01118 P 181 DBLINE TRUNCATED DURING MOVE. 01122 P 181 DBLINE TRUNCATED DURING MOVE. 01129 P 181 DBLINE TRUNCATED DURING MOVE. *****ERRORS U- 0000 S- 0000 C- 0000 P- 0003 ***** OS/3E COBOL COMPILATION COMPLETE VSBRUN START 09.50.23 END 09.50.27 UNIVAC SYSTEM OS/3 LINKAGE EDITOR VER760901 DATE- 21/06/08 TIME- 09.50 CONTROL STREAM ENCOUNTERED AND PROCESSED AS FOLLOWS- // PARAM OUT=WORKLIB /$ LOADM VSBRUN CMP09080 INCLUDE VSBRUN00,WORKLIB CMP09090 INCLUDE VSBSUBSC,WORKLIB CMP09100 INCLUDE XU7PAG CMP09110 * XU7PAG IS NOT REQUIRED IN THIS RUN, BUT IS SPECIFICALLY INCLUDED TO CMP09120 * MAKE SURE IT IS PRESENT IN THE RELEASED SYSTEM FOR THE USER CMP09130 * WHO IMPLEMENTS HIS OWN CALC ALGORITHM. CMP09140 /* CF@DCP *AUTO-INCLUDED* TYPBUF$ *AUTO-INCLUDED* CM@SME *AUTO-INCLUDED* CO@BJERR*AUTO-INCLUDED* SYSLST *AUTO-INCLUDED* XR7CALC *AUTO-INCLUDED* XR7DBI *AUTO-INCLUDED* XM7GMN *AUTO-INCLUDED* XR7SAV *AUTO-INCLUDED* XR7ABO *AUTO-INCLUDED* XR7DAT *AUTO-INCLUDED* XR7DMR *AUTO-INCLUDED* XR7DMS *AUTO-INCLUDED* XS7CNI *AUTO-INCLUDED* XS7CSI *AUTO-INCLUDED* XS7NPI *AUTO-INCLUDED* XS7PRT *AUTO-INCLUDED* XR7JTP *AUTO-INCLUDED* DP$COM1 *AUTO-INCLUDED* DD$T100 *AUTO-INCLUDED* DD$D111 *AUTO-INCLUDED* DD$S001 *AUTO-INCLUDED* *DEFINITIONS DICTIONARY* SYMBOL. TYPE. PHASE. ADDRESS. SYMBOL. TYPE. PHASE. ADDRESS. SYMBOL. TYPE. PHASE. ADDRESS. BLKEND ENTRY ROOT 0000193C BLKHEAD ENTRY ROOT 00001524 BUFFER$ ENTRY ROOT 00000266 CF@BUF CSECT ROOT 00000260 CF@DCP CSECT ROOT 00000000 CM@SME CSECT ROOT 000002E0 CO@BJERR CSECT ROOT 00000350 CO@BJER1 ENTRY ROOT 000003C6 CO@BJER2 ENTRY ROOT 000003D8 CO@BJER3 ENTRY ROOT 000003EA CO@BJER4 ENTRY ROOT 000003FC CR@DTF CSECT ROOT 00000480 DBMFILE ENTRY ROOT 00000CC8 DBMFILEA ENTRY ROOT 00000D68 DBMFILEB ENTRY ROOT 00000DB4 DBMFILEC ENTRY ROOT 00000D58 DBMFILED ENTRY ROOT 00000DB8 DBMFILEE ENTRY ROOT 00000D00 DD$D111 CSECT ROOT 00009B80 DD$S001 ENTRY ROOT 0000A010 DD$S011 ENTRY ROOT 0000A010 DD$S100 ENTRY ROOT 0000A010 DD$S101 ENTRY ROOT 0000A010 DD$S111 CSECT ROOT 0000A010 DD$T001 ENTRY ROOT 00009080 DD$T100 ENTRY ROOT 00009080 DD$T101 ENTRY ROOT 00009080 DD$T111 CSECT ROOT 00009080 DP$COM0 ENTRY ROOT 00008BB0 DP$COM1 ENTRY ROOT 00008BB0 DP$COM2 ENTRY ROOT 00008BB0 DP$COM3 ENTRY ROOT 00008BB0 DP$COM4 ENTRY ROOT 00008BB0 DP$COM5 ENTRY ROOT 00008BB0 DP$COM6 ENTRY ROOT 00008BB0 DP$COM7 ENTRY ROOT 00008BB0 JTDTF ENTRY ROOT 000089E0 JTDTFC ENTRY ROOT 00008A70 JTDTFE ENTRY ROOT 00008A18 KE$ALP ENTRY ABS 00011774 KE$RES ENTRY ABS 00011774 NFPFILE ENTRY ROOT 00008410 NFPFILEA ENTRY ROOT 000084B0 NFPFILEB ENTRY ROOT 000084FC NFPFILEC ENTRY ROOT 000084A0 NFPFILED ENTRY ROOT 00008500 NFPFILEE ENTRY ROOT 00008448 OP$NSYSP ENTRY ROOT 000004D4 PR$IOE CSECT ROOT 00008BB0 PRNTR ENTRY ROOT 000085E0 PRNTRC ENTRY ROOT 00008612 PRNTRE ENTRY ROOT 00008618 PRNTR3 ENTRY ROOT 000011E8 PRNTR3C ENTRY ROOT 0000121A PRNTR3E ENTRY ROOT 00001220 PRTBUF$ ENTRY ROOT 00000265 ST$1100 CSECT ROOT 00009800 SYSLST ENTRY ROOT 00000480 SYSLSTC ENTRY ROOT 000004B2 TYPBUF$ ENTRY ROOT 00000261 VSBRUN00 CSECT ROOT 0000A8D0 VSBSUBSC CSECT ROOT 0000E3A8 XM7GMN CSECT ROOT 00000E10 XR7ABM CSECT ROOT 00000E78 XR7ABO ENTRY ROOT 000010A8 XR7BNEXT ENTRY ROOT 000013E8 XR7BPRIO ENTRY ROOT 0000144C XR7CALC CSECT ROOT 000004F8 XR7CAN CSECT ROOT 000010A8 XR7DAT CSECT ROOT 00001248 XR7DBC ENTRY ROOT 00000AAE XR7DBI CSECT ROOT 00000740 XR7DBO ENTRY ROOT 00000944 XR7DMR CSECT ROOT 00001310 XR7DMS ENTRY ROOT 00006310 XR7DUO ENTRY ROOT 000008E4 XR7ICB ENTRY ROOT 0000E3B0 XR7IDM CSECT ROOT 00006310 XR7INT ENTRY ROOT 00001620 XR7JTC ENTRY ROOT 000089A0 XR7JTP CSECT ROOT 00008818 XR7LABUF ENTRY ROOT 00001514 XR7PC ENTRY ROOT 00000E80 XR7SAV ENTRY ROOT 00000FB8 XS7CNI CSECT ROOT 000080D8 XS7CNO ENTRY ROOT 0000816A XS7CSI CSECT ROOT 000081C0 XS7NPI CSECT ROOT 00008280 XS7PRC ENTRY ROOT 0000878C XS7PRT CSECT ROOT 00008510 XU7PAG CSECT ROOT 0000E908 ** ALLOCATION MAP ** LOAD MODULE - VSBRUN SIZE - 00011774 PHASE NAME TRANS ADDR FLAG LABEL TYPE ESID LNK ORG HIADDR LENGTH OBJ ORG VSBRUN00 NODE - ROOT 00000000 00011773 00011774 *** START OF AUTO-INCLUDED ELEMENTS - - 56/50/74 17.58 - CF@DCP OBJ CF@DCP CSECT 02 00000000 0000025B 0000025C 00000000 - 56/50/74 19.05 - CF@BUF OBJ CF@BUF CSECT 02 00000260 000002DF 00000080 00000000 PRTBUF$ ENTRY 02 00000265 00000005 TYPBUF$ ENTRY 02 00000261 00000001 BUFFER$ ENTRY 02 00000266 00000006 - 53/70/74 21.13 - CM@SME OBJ CM@SME CSECT 02 000002E0 0000034B 0000006C 00000000 - 56/50/74 03.01 - CO@BJERR OBJ CO@BJERR CSECT 02 00000350 0000047B 0000012C 00000000 CO@BJER1 ENTRY 02 000003C6 00000076 CO@BJER2 ENTRY 02 000003D8 00000088 CO@BJER3 ENTRY 02 000003EA 0000009A CO@BJER4 ENTRY 02 000003FC 000000AC - 56/50/74 21.13 - CR@DTF OBJ CR@DTF CSECT 02 00000480 000004F3 00000074 00000000 SYSLST ENTRY 02 00000480 00000000 SYSLSTC ENTRY 02 000004B2 00000032 OP$NSYSP ENTRY 02 000004D4 00000054 - 76/06/08 10.59 - XR7CALC OBJ XR7CALC CSECT 01 000004F8 0000073B 00000244 00000000 - 76/06/08 11.56 - XR7DBI OBJ XR7DBI CSECT 01 00000740 00000E0B 000006CC 00000000 XR7DBO ENTRY 01 00000944 00000204 XR7DBC ENTRY 01 00000AAE 0000036E XR7DUO ENTRY 01 000008E4 000001A4 DBMFILE ENTRY 01 00000CC8 00000588 DBMFILEB ENTRY 01 00000DB4 00000674 DBMFILED ENTRY 01 00000DB8 00000678 DBMFILEA ENTRY 01 00000D68 00000628 DBMFILEC ENTRY 01 00000D58 00000618 DBMFILEE ENTRY 01 00000D00 000005C0 - 76/06/08 11.22 - XM7GMN OBJ XM7GMN CSECT 01 00000E10 00000E73 00000064 00000000 - 76/06/08 11.27 - XR7ABM OBJ XR7ABM CSECT 01 00000E78 000010A7 00000230 00000000 XR7SAV ENTRY 01 00000FB8 00000140 XR7PC ENTRY 01 00000E80 00000008 - 76/06/08 12.15 - XR7CAN OBJ XR7CAN CSECT 01 000010A8 00001243 0000019C 00000000 XR7ABO ENTRY 01 000010A8 00000000 PRNTR3 ENTRY 01 000011E8 00000140 PRNTR3C ENTRY 01 0000121A 00000172 PRNTR3E ENTRY 01 00001220 00000178 - 76/06/08 12.26 - XR7DAT OBJ XR7DAT CSECT 01 00001248 0000130A 000000C3 00000000 XR7DMR CSECT 01 00001310 0000630F 00005000 00000000 PHASE NAME TRANS ADDR FLAG LABEL TYPE ESID LNK ORG HIADDR LENGTH OBJ ORG XR7LABUF ENTRY 01 00001514 00000204 XR7BNEXT ENTRY 01 000013E8 000000D8 XR7BPRIO ENTRY 01 0000144C 0000013C BLKHEAD ENTRY 01 00001524 00000214 XR7INT ENTRY 01 00001620 00000310 BLKEND ENTRY 01 0000193C 0000062C - 76/06/05 20.51 - XR7IDM OBJ XR7IDM CSECT 01 00006310 000080D3 00001DC4 00000000 XR7DMS ENTRY 01 00006310 00000000 - 76/06/08 11.03 - XS7CNI OBJ XS7CNI CSECT 01 000080D8 000081BD 000000E6 00000000 XS7CNO ENTRY 01 0000816A 00000092 - 76/06/08 12.18 - XS7CSI OBJ XS7CSI CSECT 01 000081C0 0000827F 000000C0 00000000 - 76/06/08 11.44 - XS7NPI OBJ XS7NPI CSECT 01 00008280 0000850B 0000028C 00000000 NFPFILE ENTRY 01 00008410 00000190 NFPFILEB ENTRY 01 000084FC 0000027C NFPFILED ENTRY 01 00008500 00000280 NFPFILEA ENTRY 01 000084B0 00000230 NFPFILEC ENTRY 01 000084A0 00000220 NFPFILEE ENTRY 01 00008448 000001C8 - 76/06/13 11.41 - XS7PRT OBJ XS7PRT CSECT 01 00008510 00008813 00000304 00000000 XS7PRC ENTRY 01 0000878C 0000027C PRNTR ENTRY 01 000085E0 000000D0 PRNTRC ENTRY 01 00008612 00000102 PRNTRE ENTRY 01 00008618 00000108 - 76/09/09 19.12 - XR7JTP OBJ XR7JTP CSECT 01 00008818 00008BAF 00000398 00000000 XR7JTC ENTRY 01 000089A0 00000188 JTDTF ENTRY 01 000089E0 000001C8 JTDTFC ENTRY 01 00008A70 00000258 JTDTFE ENTRY 01 00008A18 00000200 - 09/21/76 32.51 - PR$IOE OBJ PR$IOE CSECT 01 00008BB0 0000907F 000004D0 00000000 DP$COM7 ENTRY 01 00008BB0 00000000 DP$COM0 ENTRY 01 00008BB0 00000000 DP$COM1 ENTRY 01 00008BB0 00000000 DP$COM6 ENTRY 01 00008BB0 00000000 DP$COM2 ENTRY 01 00008BB0 00000000 DP$COM5 ENTRY 01 00008BB0 00000000 DP$COM4 ENTRY 01 00008BB0 00000000 DP$COM3 ENTRY 01 00008BB0 00000000 - 09/24/76 32.78 - DD$T111 OBJ DD$T111 CSECT 01 00009080 000097FF 00000780 00000000 ST$1100 CSECT 02 00009800 00009B7C 0000037D 00000780 DD$T100 ENTRY 01 00009080 00000000 DD$T001 ENTRY 01 00009080 00000000 DD$T101 ENTRY 01 00009080 00000000 - 76/12/04 08.07 - DD$D111 OBJ DD$D111 CSECT 01 00009B80 0000A00C 0000048D 00000000 - 76/12/04 08.10 - DD$S111 OBJ DD$S001 ENTRY 01 0000A010 00000000 PHASE NAME TRANS ADDR FLAG LABEL TYPE ESID LNK ORG HIADDR LENGTH OBJ ORG DD$S011 ENTRY 01 0000A010 00000000 DD$S100 ENTRY 01 0000A010 00000000 DD$S101 ENTRY 01 0000A010 00000000 *** END OF AUTO-INCLUDED ELEMENTS - - 21/06/08 09.50 - VSBRUN00 OBJ VSBRUN00 CSECT 02 0000A8D0 0000E3A1 00003AD2 00000000 - 21/06/08 09.50 - VSBSUBSC OBJ VSBSUBSC CSECT 01 0000E3A8 0000E903 0000055C 00000000 XR7ICB ENTRY 01 0000E3B0 00000008 - 76/08/11 05.36 - XU7PAG OBJ XU7PAG CSECT 01 0000E908 00011773 00002E6C 00000000 0000A8D0 FLAG CODES - B - BLK DATA CSECT D - AUTO-DELETED E - EXCLUSIVE 'A' REF G - GENERATED EXTRN I - INCLUSIVE 'V' REF M - MULTIPLY DEFINED N - NOT INCLUDED P - PROMOTED COMMON R - SHARED REC PRODC'D S - SHARED ITEM U - UNDEFINED REF V - VCON ITEM *ANY OTHER CODES REPRESENT PROCESS ERRORS* LINK EDIT OF 'VSBRUN' COMPLETED DATE- 21/06/08 TIME- 09.50 ERRORS ENCOUNTERED- 0000 DDDDDD M M SSSS CCCCCC OOOOOO M M PPPPPP DDDDDDDD MM MM SSSSSS CCCCCCCC OOOOOOOO MM MM PPPPPPP DD DD MMM MMM SS SS CC CC OO OO MMM MMM PP PP DD DD MMMMMMMM SS CC OO OO MMMMMMMM PP PP DD DD MM MM MM SS CC OO OO MM MM MM PPPPPPP DD DD MM MM SS CC OO OO MM MM PPPPPP DD DD MM MM SS CC OO OO MM MM PP DD DD MM MM SS SS CC CC OO OO MM MM PP DDDDDDD MM MM SSSSSS CCCCCCCC OOOOOOOO MM MM PP DDDDDD MM MM SSSS CCCCCC OOOOOO MM MM PP 222 11 / 0000 6666 / 0000 8888 222222 111 // 00 00 666666 // 00 00 888888 22 22 111 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 88 88 22 11 /// 00 00 66 /// 00 00 8888 22 11 /// 00 00 666666 /// 00 00 888888 22 11 /// 00 00 666 66 /// 00 00 88 88 22 11 /// 00 00 66 66 /// 00 00 88 88 222222 1111 // 00 00 666666 // 00 00 888888 2222222 1111 / 0000 6666 / 0000 8888 0000 999 5555555 0000 222 8888 00 00 99999 5555555 00 00 222222 888888 00 00 99 99 :: 55 00 00 :: 22 22 88 88 00 00 99 99 :: 55555 00 00 :: 22 88 88 00 00 99 999 55 55 00 00 22 8888 00 00 99999 55 00 00 22 888888 00 00 99 :: 55 00 00 :: 22 88 88 00 00 99 99 :: 55 555 00 00 :: 22 88 88 00 00 99999 555555 00 00 222222 888888 0000 999 5555 0000 2222222 8888 EEEEEEEE N NN DDDDDD EEEEEEEE NN NN DDDDDDDD EE NNN NN DD DD EE NNNN NN DD DD EEEEE NN NN NN DD DD EEEEE NN NNNN DD DD EE NN NNN DD DD EE NN NN DD DD EEEEEEEE NN NN DDDDDDD EEEEEEEE NN NN DDDDDD