Sample Input to IMBS
The following is a sample of statements input to the IMBS macro.
IMBS SYSTEM=DBMP,SUBSCH=IMBSSUBS IMBS SET=(01,ITEM-STRUCTURE) IMBS SET=(02,ITEM-WHERE-USED) IMBS SET=(03,WORK-ROUTING) IMBS SET=(04,ITEM-ROUTING) IMBS RECNAME=(ITEMFLE,ITEM-MASTER),TYPE=M,KEYL=5,LRECL=68 IMBS POINTER=(01,X,1) IMBS POINTER=(01,N,10) IMBS POINTER=(02,N,14) IMBS POINTER=(04,N,18) IMBS POINTER=(04,P,22) IMBS RECNAME=(PRODSTR,PROD-STRUCTURE),TYPE=C,KEYL=5,LRECL=36 IMBS POINTER=(01,O,1) IMBS POINTER=(01,N,5) IMBS POINTER=(02,O,9) IMBS POINTER=(02,N,13) IMBS POINTER=(02,P,17) IMBS RECNAME=(WORKCTR,WORK-CENTER),TYPE=M,KEYL=5,LRECL=32 IMBS POINTER=(01,X,1) IMBS POINTER=(03,N,10) IMBS POINTER=(03,P,14) IMBS RECNAME=(ROUTING,ROUTINGS),TYPE=C,KEYL=0,LRECL=84 IMBS POINTER=(04,O,1) IMBS POINTER=(04,N,5) IMBS POINTER=(03,O,9) IMBS POINTER=(03,N,13) IMBS POINTER=(03,P,17) IMBS END END
Sample Output from IMBS
The following is a sample IMBSTAB source listing, the output from the IMBS macro.
LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT
1 IMBS SYSTEM=DBMP,SUBSCH=IMBSSU
000000 2+IMBSTAB CSECT
000000 47F0 E000 00000 3+ BC 15,0(,14)
000004 00000020 4+ DC A(IMBSCNTL)
000008 5C5CC9D4C2E240E3 5+ DC C'**IMBS TABLE V12.0**'
6+*
000020 7+IMBSCNTL DS 0D
000020 C4C2D4D7 8+ DC CL4'DBMP'
000024 00000298 9+ DC A(R1)
000028 000003F0 10+ DC A(BUFFER)
00002C 00000148 11+ DC A(SETABLE)
000030 00000190 12+ DC A(PTRTAB)
000034 C9D4C2E260D9C5C3 13+ DC CL16'IMBS-RECORD'
000044 C9D4C2E2D7D9D6C3 14+ DC CL8'IMBSPROC'
00004C C9D4C2E2E2E4C2E2 15+ DC CL8'IMBSSUBS'
000054 C9C4D4E2C4C2D4D7 16+ DC CL8'IDMSDBMP'
00005C C9E3C5D460D4C1E2 17+ DC CL16'ITEM-MASTER'
00006C 000000F5 18+ DC A(SSCIDBCM+38-1)
000070 19+ DS 0D
000070 20+SSCTRL DS 0CL200
000070 4040404040404040 21+PGMNAME DC CL8' '
000078 F1F4F0F0 22+ERRSTAT DC C'1400'
00007C 00000000 23+DBKEY DC F'0'
000080 4040404040404040 24+RECNAME DC CL16' '
000090 4040404040404040 25+AREANAME DC CL16' '
0000A0 4040404040404040 26+ERRORSET DC CL16' '
0000B0 4040404040404040 27+ERRORREC DC CL16' '
0000C0 4040404040404040 28+ERRAREA DC CL16' '
0000D0 29+SSCIDBCM DS 0F
0000D0 0000000000000000 30+IDBMSCOM DC 25F'0'
000134 00000000 31+DIRDBKEY DC F'0'
000138 32+DBSTATUS DS 0CL7
000138 4040 33+DBSTMTCD DC CL2' '
00013A 404040404040 34+DBSTATCD DC CL5' ',CL1' '
000140 00000000 35+RECOCCUR DC F'0'
000144 00000000 36+DMLSEQ DC F'0'
000148 37+SETABLE DS 0D
38 *
39 IMBS SET=(01,ITEM-STRUCTURE)
000148 C9E3C5D460E2E3D9 40+SET1 DC CL16'ITEM-STRUCTURE'
41 IMBS SET=(02,ITEM-WHERE-USED)
000158 C9E3C5D460E6C8C5 42+SET2 DC CL16'ITEM-WHERE-USED'
43 IMBS SET=(03,WORK-ROUTING)
000168 E6D6D9D260D9D6E4 44+SET3 DC CL16'WORK-ROUTING'
45 IMBS SET=(04,ITEM-ROUTING)
000178 C9E3C5D460D9D6E4 46+SET4 DC CL16'ITEM-ROUTING'
47 *
48 IMBS RECNAME=(ITEMFLE,ITEM-MAS
000188 FFFFFFFF 49+ DC F'-1'
50+*
000190 51+PTRTAB DS 0D
000190 0000000000000000 52+ DC 16XL16'FF'
53+*
000290 54+FTABLE DS 0D
000290 FFFFFFFF 55+ DC F'-1'
000294 0000 56+ DC H'0'
000296 FFFF 57+ DC H'-1'
000298 58+R1 DS 0F
000298 000002F0 59+ DC A(R2)
00029C C9E3C5D4C6D3C5 60+ DC CL7'ITEMFLE'
0002A3 D4 61+ DC C'M'
0002A4 C9E3C5D460D4C1E2 62+ DC CL16'ITEM-MASTER'
0002B4 0005 63+ DC H'5'
0002B6 0044 64+ DC H'68'
0002B8 0000000000000000 65+ DC 2F'0'
66 IMBS POINTER=(01,X,1)
0002C0 00000190 67+ DC A(PTRTAB+16*(01-1))
0002C4 0000 68+ DC AL2(1-1)
0002C6 E7 69+ DC CL1'X'
0002C7 40 70+ DC CL1' '
71 IMBS POINTER=(01,N,10)
0002C8 00000190 72+ DC A(PTRTAB+16*(01-1))
0002CC 0009 73+ DC AL2(10-1)
0002CE D5 74+ DC CL1'N'
0002CF 40 75+ DC CL1' '
76 IMBS POINTER=(02,N,14)
0002D0 000001A0 77+ DC A(PTRTAB+16*(02-1))
0002D4 000D 78+ DC AL2(14-1)
0002D6 D5 79+ DC CL1'N'
0002D7 40 80+ DC CL1' '
81 IMBS POINTER=(04,N,18)
0002D8 000001C0 82+ DC A(PTRTAB+16*(04-1))
0002DC 0011 83+ DC AL2(18-1)
0002DE D5 84+ DC CL1'N'
0002DF 40 85+ DC CL1' '
86 IMBS POINTER=(04,P,22)
0002E0 000001C0 87+ DC A(PTRTAB+16*(04-1))
0002E4 0015 88+ DC AL2(22-1)
0002E6 D7 89+ DC CL1'P'
0002E7 40 90+ DC CL1' '
91 *
92 IMBS RECNAME=(PRODSTR,PROD-STR
0002E8 FFFFFFFF 93+ DC F'-1'
0002EC 0044 94+ DC H'68'
0002EE FFFF 95+ DC H'-1'
0002F0 96+R2 DS 0F
0002F0 00000348 97+ DC A(R3)
0002F4 D7D9D6C4E2E3D9 98+ DC CL7'PRODSTR'
0002FB C3 99+ DC C'C'
0002FC D7D9D6C460E2E3D9 100+ DC CL16'PROD-STRUCTURE'
00030C 0005 101+ DC H'5'
00030E 0024 102+ DC H'36'
000310 0000000000000000 103+ DC 2F'0'
104 IMBS POINTER=(01,O,1)
000318 00000190 105+ DC A(PTRTAB+16*(01-1))
00031C 0000 106+ DC AL2(1-1)
00031E D6 107+ DC CL1'O'
00031F 40 108+ DC CL1' '
109 IMBS POINTER=(01,N,5)
000320 00000190 110+ DC A(PTRTAB+16*(01-1))
000324 0004 111+ DC AL2(5-1)
000326 D5 112+ DC CL1'N'
000327 40 113+ DC CL1' '
114 IMBS POINTER=(02,O,9)
000328 000001A0 115+ DC A(PTRTAB+16*(02-1))
00032C 0008 116+ DC AL2(9-1)
00032E D6 117+ DC CL1'O'
00032F 40 118+ DC CL1' '
119 IMBS POINTER=(02,N,13)
000330 000001A0 120+ DC A(PTRTAB+16*(02-1))
000334 000C 121+ DC AL2(13-1)
000336 D5 122+ DC CL1'N'
000337 40 123+ DC CL1' '
124 IMBS POINTER=(02,P,17)
000338 000001A0 125+ DC A(PTRTAB+16*(02-1))
00033C 0010 126+ DC AL2(17-1)
00033E D7 127+ DC CL1'P'
00033F 40 128+ DC CL1' '
129 *
130 IMBS RECNAME=(WORKCTR,WORK-CEN
000340 FFFFFFFF 131+ DC F'-1'
000344 0024 132+ DC H'36'
000346 FFFF 133+ DC H'-1'
000348 134+R3 DS 0F
000348 00000390 135+ DC A(R4)
00034C E6D6D9D2C3E3D9 136+ DC CL7'WORKCTR'
000353 D4 137+ DC C'M'
000354 E6D6D9D260C3C5D5 138+ DC CL16'WORK-CENTER'
000364 0005 139+ DC H'5'
000366 0020 140+ DC H'32'
000368 0000000000000000 141+ DC 2F'0'
142 IMBS POINTER=(01,X,1)
000370 00000190 143+ DC A(PTRTAB+16*(01-1))
000374 0000 144+ DC AL2(1-1) 000376 E7 145+ DC CL1'X' 000377 40 146+ DC CL1' '
147 IMBS POINTER=(03,N,10)
000378 000001B0 148+ DC A(PTRTAB+16*(03-1))
00037C 0009 149+ DC AL2(10-1)
00037E D5 150+ DC CL1'N'
00037F 40 151+ DC CL1' '
152 IMBS POINTER=(03,P,14)
000380 000001B0 153+ DC A(PTRTAB+16*(03-1))
000384 000D 154+ DC AL2(14-1)
000386 D7 155+ DC CL1'P'
000387 40 156+ DC CL1' '
157 *
158 IMBS RECNAME=(ROUTING,ROUTINGS
000388 FFFFFFFF 159+ DC F'-1'
00038C 0020 160+ DC H'32'
00038E FFFF 161+ DC H'-1'
000390 162+R4 DS 0F
000390 000003E8 163+ DC A(R5)
000394 D9D6E4E3C9D5C7 164+ DC CL7'ROUTING'
00039B C3 165+ DC C'C'
00039C D9D6E4E3C9D5C7E2 166+ DC CL16'ROUTINGS'
0003AC 0000 167+ DC H'0'
0003AE 0054 168+ DC H'84'
0003B0 0000000000000000 169+ DC 2F'0'
170 IMBS POINTER=(04,O,1)
0003B8 000001C0 171+ DC A(PTRTAB+16*(04-1))
0003BC 0000 172+ DC AL2(1-1)
0003BE D6 173+ DC CL1'O'
0003BF 40 174+ DC CL1' '
175 IMBS POINTER=(04,N,5)
0003C0 000001C0 176+ DC A(PTRTAB+16*(04-1))
0003C4 0004 177+ DC AL2(5-1)
0003C6 D5 178+ DC CL1'N'
0003C7 40 179+ DC CL1' '
180 IMBS POINTER=(03,O,9)
0003C8 000001B0 181+ DC A(PTRTAB+16*(03-1))
0003CC 0008 182+ DC AL2(9-1)
0003CE D6 183+ DC CL1'O'
0003CF 40 184+ DC CL1' '
185 IMBS POINTER=(03,N,13)
0003D0 000001B0 186+ DC A(PTRTAB+16*(03-1))
0003D4 000C 187+ DC AL2(13-1)
0003D6 D5 188+ DC CL1'N'
0003D7 40 189+ DC CL1' '
190 IMBS POINTER=(03,P,17)
0003D8 000001B0 191+ DC A(PTRTAB+16*(03-1))
0003DC 0010 192+ DC AL2(17-1)
0003DE D7 193+ DC CL1'P'
0003DF 40 194+ DC CL1' '
195 *
196 IMBS END
0003E0 FFFFFFFF 197+ DC F'-1'
0003E4 0054 198+ DC H'84'
0003E6 FFFF 199+ DC H'-1'
0003E8 200+R5 DS 0F
0003E8 C5D5C44B 201+ DC CL4'END.'
0003F0 202+BUFFER DS 0D
0003F0 0000000000000000 203+ DC XL148'0'
000484 C5D5C44B 204+ DC CL4'END.'
205 END
|
Copyright © 2013 CA.
All rights reserved.
|
|