/begin-procedure log=*a,par=*y(proc-par=( - / &TRMLIB=TRMLIB.V761, - / &MACLIB='($TSOS.SYSLIB.ASSEMBH.012,$TSOS.SYSLIB.BS2CP.120, - / $TSOS.SYSLIB.SORT.077)' - / )) /REMARK -------------------------------------------------------------* /REMARK TRM TSIGENER UTILITY. /REMARK This proc catalogs TSIGENER to the TRM library and then /REMARK assembles it from there. /REMARK Prior to running this proc, you should run P.TRMCRLIB to /REMARK create the TRM library. /REMARK -------------------------------------------------------------* /REMARK -------------------------------------------------------------* /REMARK Run lms to cat TSIGENER source to TRM library. /REMARK -------------------------------------------------------------* /assign-sysout to=p.TRMgener.out,terminal-display=*no /assign-syslst p.TRMgener.lst /assign-sysdta *syscmd /mod-job-opt logging=*par(listing=*y) /add-file-link link-name=TRMLIB,file-name=&TRMLIB /start-lms //open-library *link(TRMLIB),mode=*update //modify-lms-defaults (type=s) //add-elem *sysdta(end=c'+.GENEND'), - // to-element=*lib(element=TSIGENER),write-mode=*any U#000001 DS 0X 00000000 TSIGENER RMODE 24 00000001 TSIGENER AMODE ANY 00000002 TSIGENER CSECT 00000003 DC X'DF047F0F01E',C'TSIGENER2002-04-1707/20/06k',X'80F0A258X00000004 F0F09A47F0F0B69220F07858F0F07047',C'00wk 0%',X'58F0F0644X00000005 7F0F0A6' 00000006 DS 4X 00000007 DC 72X'0' 00000008 DS 4X 00000009 DC A(8192+TSIGENER),A(4096+TSIGENER),A(TSIGENER),A(72+TSIGEX00000010 NER),X'80' 00000011 DS 1X 00000012 DC X'90ECD00C4130F04850D030045030D00898ADF0941FEE0BE050E0C0X00000013 905820BB800B024110BEB04DE0CB5C4110BED04DE0CB5C9180BD9847X00000014 10C6244DE0CEEC4770C2FA9180C0A44710C11612F047D0C11649F0BCX00000015 8047D0C10C41F0008447F0C10CD200B9AF100006F044F0C1064DE0BAX00000016 4412F047D0C1DC06F044F0C1F658E0BB8444F0C1FC4110BD3C955C10X00000017 004780C0E04900BC824740C148D50F1000BB404780C2324900BC8447X00000018 40C15AD50E1000BCD24780C2264900BC864740C16CD50B1000BB8847X00000019 80C2824900BC884740C192D50A1000BCE14780C236D50A1000' 00000020 DC X'BCEC4780C266D50A1000BCF74780C2BE4900BC8A4740C1A4D50910X00000021 00BC8C4780C22A4900BC964740C1C0D5051000BC984780C23ED50510X00000022 00BC9E4780C24E4900BCA44740C1DCD5031000BB944780C202D50310X00000023 00BB984780C20A18E118F05800BB9C4110001E0E0E5810BBA04DE0B6X00000024 BC47F0C624D200BD3C1000DC00BD3CE0009608BD9947F0C0E0411010X00000025 044B00BCA441F0BDA04DE0B3664770C6249620BD9947F0C0E09610BDX00000026 9A9604BD9947F0C0E09608BD9A9602BD9947F0C0E09680BD999140BDX00000027 9947E0C0E047',CL5'0B!o' 00000028 DC X'BD999180BD9947E0C0E05810BBA44DE0B6BC47F0C6244110100B4BX00000029 00BC8841F0BDA84DE0B3664770C6249610BD9947F0C0E04110100C4BX00000030 00BC8641F0BE034DE0B3664770C624947FBD9AF970BE03BD024780C0X00000031 E09680BD9AF970BE03BD0347D0C0E05810BBA84DE0B6BC47F0C62441X00000032 10100B4B00BC8841F0BE0B4DE0B3664770C62494BFBD9AF970BE0BBDX00000033 024780C0E09640BD9AF970BE0BBD0347D0C0E05810BBAC4DE0B6BC47X00000034 F0C6249180BD9A47E0C3169108BD994710C3165810BBB04DE0B6BC47X00000035 F0C6249108BD9947E0C3324110A0105010A1344DE0CB5C9180' 00000036 DC X'BD984710C6249180BD9A47E0C33E9620BD9A4110BEF05010A1384DX00000037 E0CB5C9180BD984710C6249601BD995830BBB418134DE0C7101F00BFX00000038 0330009140BD9947E0C3D8D5013000BCA64780C3845810BBB84DE0B6X00000039 BC47F0C624F273BD9030044F40BD901813BF6F1000FB70BDDBBD0294X00000040 FEBD994DE0C7101F55BF531000BE6F1000411510004B10BCA45510BBX00000041 BC4720C3BB4640C390410010041F035500BBC04720C3CD1810891000X00000042 10BE1F300091C0BD994770C3EA1F00BF03300047F0C4369140BD9947X00000043 E0C416411030044B00BCA45830BBC441F030044DE0B4E01F13' 00000044 DC X'180189100010BE1F300047F0C436411030044B00BCA45830BBC441X00000045 F030044DE0B4761F13180189100010BE1F3000FA70BDC3BD024B00BCX00000046 A4413030049120BD9947E0C45A4F10BDA01B0147D0C3524131300091X00000047 10BD9947E0C46E4FE0BDA8150E47D0C46E180E18431E401F434B30BCX00000048 A49180BD9947E0C4CA18141F005850BD381D0512004780C494411010X00000049 014E10BD90960FBD975810BBC8F3371004BD904DE0C924194547D0C4X00000050 CA41E0500489E00010BEEF300018134DE0C9241B451E3547F0C4AA41X00000051 00400489000010BE0F300018134DE0C92447F0C3529120BD9A' 00000052 DC X'47E0C56C5810BBCCDE101030BDEC4DE0B6C0F877BD90BDEBFD70BDX00000053 90BE0AF876BE15BD905810BBD0D2101016BD04DE101016BE164DE0B6X00000054 C0F870BDB3BD15F870BDBBBD15F870BDC3BD15F870BDCBBD15F870BDX00000055 D3BD15F870BDDBBD15F870BDE3BD15F870BDEBBD15F870BDF3BD15F8X00000056 70BDFBBD15F800BE13BD02F800BE14BD0294DFBD9A47F0C33E9101BDX00000057 994710C57C5810BBD44DE0B6BC5830A1345810BBD8D2101008BD04DEX00000058 101008BDE4D207102BBB509108BD9947E0C5A4D207102B30004DE0B6X00000059 C05810BBDCD2101008BD04DE101008BDB4D2071036BB509108' 00000060 DC X'BD9947E0C5CCD207103630004DE0B6C05810BBE0DE101008BDFC4DX00000061 E0B6C05810BBE4DE101008BDDC4DE0B6C05810BBE8DE101008BDD44DX00000062 E0B6C05810BBECDE101008BDEC4DE0B6C05810BBF0DE101008BDC44DX00000063 E0B6C05810BBF4DE101008BDBC4DE0B6C04120BEB095FF20004780C6X00000064 3E18124DE0CD144120202047F0C62841F000089180BD984710C65841X00000065 F000049140BD984710C6581FFF9180C0A44710C6784120C66A5620C0X00000066 900B0258D0D00450F0D01098ECD00C07FE',C'+0F0o' 00000067 DC X'FC6F75810BBF8F3871026C6F04100000895F010264770C6A0D2081X00000068 02610274600C68E182F1F00BF031000411010024DE0B67012224780CX00000069 6D24110C6C047F0C6D0' 00000070 DS 2X 00000071 DC XL26'62801FFFFFFFF02000404404040400A094110C6DC47F0C6EC' 00000072 DS 2X 00000073 DC XL18'62801FFFFFFFF01000004404040400A09',10X'0' 00000074 DS 24X 00000075 DC X'90E3C6F85830A138583030089180C0A44710C73418131FFFBFF710X00000076 3105EF182147F0C74A1813D70F11081108500101049280110C58F101X00000077 440DEF1F00BF0320004E00BD90FA77BDF3BD90FA77BDFBBD90FA70BDX00000078 CBBD02FA70BDD3BD02FA70BDDBBD029120BD9A4710C8809104BD9947X00000079 E0C880F973BDD3BBFC47D0C79A960FBDDAF377B71CBDD347F0C7E6D2X00000080 07B71CBB58DE07B71CBDD7F972BDD3BD1647D0C7B892C9B71C47F0C7X00000081 E6F971BDD3BCA847D0C7CCD202B71CBD1947F0C7E6F970BDD3BD0347X00000082 D0C7E0D204B71CBD1C47F0C7E6D204B71DBD1C1FFF9140BD99' 00000083 DC X'4780C860F977C854BDDB4780C860D210C830C843DE10C830BDDC92X00000084 7AC8419540C8314770C85CD211C830C83147F0C80A',CL37'INPUT LX00000085 OGICAL RECORD',X'7A5B402020',3X'20206B20',X'2120',7X'0' 00000086 DC X'C41F0C81CF877C854BDDB18129680BDB29110BD9A47E0C87C4DE0BX00000087 85847F0C8804DE0B7245800C7041F11BF13200018310E0298E3C6F80X00000088 7FE5830A13818134DE0CD149140BD9A47E0C4E05810BC00D2101008BX00000089 D04DE101008BDF4D200102C30024DE0B6C05810BC04D2101008BD04DX00000090 E101008BDCCD200103730024DE0B6C0FA00BE14BD02F907BE14BE0B4X00000091 720C4E04130302018134DE0CB5C9180BD984710C624F870BDCBBD15FX00000092 870BDF3BD1547F0C718' 00000093 DS 24X 00000094 DC X'910ABD99078E90E3C90C18215830BC089108BD994780C9D65830A1X00000095 341F00BF0320004E00BD90FA77BDEBBD909120BD9A4710CB36FA77BDX00000096 E3BD90F977BDE3BE1547D0C9D6F907BE13BE034780C9D6FB77BDE3BDX00000097 9018134DE0CD145810BBD8D2101008BD04DE101008BDE4D207102B30X00000098 004DE0B6C05810BBDCD2101008BD04DE101008BDB4D207103630004DX00000099 E0B6C0FA00BE13BD024130302018134DE0CB5C9180BD984710C624F8X00000100 77BDE3BD90F870BDB3BD15FA70BDB3BD02FA70BDBBBD029102BD9947X00000101 E0CB04F973BDBBBBFC47D0CA02960FBDC2F377B71CBDBB47F0' 00000102 DC X'CA62D207B71CBB58DE07B71CBDBFF972BDBBBD1647D0CA2092D6B7X00000103 1C47F0CA62F972BDBBBD2147D0CA34D202B71CBD2447F0CA62F971BDX00000104 BBBCA847D0CA48D203B71CBC0C47F0CA62F971BDBBBCAA4720CA5CD2X00000105 05B71CBCAC47F0CA62D203B71CBC0C1FFF9180BD994780CADEF977CAX00000106 D1BDC34780CADED210CAADCAC0DE10CAADBDC4927ACABE9540CAAE47X00000107 70CADAD211CAADCAAE47F0CA',CL39'fOUTPUT LOGICAL RECORD',XX00000108 '7A5B402020',3X'20206B20',X'2120',7X'0',X'C' 00000109 DS 1X 00000110 DC X'41F0CA98F877CAD1BDC31F00BF03200018129680BDB29108BD9A47X00000111 E0CB004DE0B86447F0CB044DE0B7249108BD9947E0CB361802581030X00000112 089180C0A44710CB261FFFBFF7103105EF47F0CB36D70F1108110850X00000113 01010458F101480DEF98E3C90C07FE' 00000114 DS 32X 00000115 DC X'90E5CB3C18219101201E47E0CB8A411020004DE0CD984780CBAC58X00000116 10BC10D207103520004DE0B6C01FFF47F0CCEE411020004DE0CD9847X00000117 80CBAC5810BC14D207103520004DE0B6BC41F0000447F0CCEE485020X00000118 189140C0A44710CBC84850201A9180C0A44710CBC84850201C120547X00000119 80CC1441F0BE304A00BCB24DE0CFEC4770CBDDD2071000BB60D20710X00000120 0820004130102050302008184318F558E0200C9140C0A44710CC1258X00000121 E020109180C0A44710CC1258E020140E4E9180C0A447E0CC4E913020X00000122 1E4770CCCCD20730262000410000049180201E4710CC3A4100' 00000123 DC XL40'11813920E100192031002420100090ABA47F0CCCCD207302820X00000124 009180201E47E0CC7A4D10CC68',8X'0',X'50310004928F10001801X00000125 1B110A1347F0CCA69110201E47E0CC8A5830200C5030200807004D10X00000126 CC98',8X'0',X'503100049280100018011B110A13911030304710CCX00000127 CC9101201E4710CCEE5810BC18D207101920004DE0B6BC41F0000447X00000128 F0CCEE1FFF9640201ED5022000BD244770CCE05020A134D5012000BCX00000129 B44770CCEE5020A13858E0CB3C9805CB4412FF07FE' 00000130 DS 26X 00000131 DC X'90E3CCFC18211F330630D5022000BD244770CD2C5030A134D50120X00000132 00BCB44770CD3A5030A1389140201E47E0CD8E94BF201E5830200891X00000133 80C0A447E0CD729130201E4770CD8E181341000001920E1001920410X00000134 02420100090ABA47F0CD8E07004D10CD80',8X'0',X'503100049280X00000135 100018011B110A1498E3CCFC07FE' 00000136 DS 4X 00000137 DC X'50E0CD949180C0A44710CDAE4100CEB00A1847F0CDEAD5071000BBX00000138 684780CDE8D5071000BB704780CDE8D207CDFC10004110CDF40A90BFX00000139 FFCDF84780CDEAD501CDFABCB64770CDDF41F0000447F0CDEA1FFF58X00000140 E0CD9412FF07FE' 00000141 DS 2X 00000142 DC XL8'160C04FFFFFFFF',8C'X',152C' ',A(143600+TSIGENER),6X'X00000143 0',X'38',7X'0' 00000144 DS 62X 00000145 DC X'50E0CEE89180C0A447E0CF524D10CF2000241202FFFFFFFF',A(39X00000146 58+TSIGENER),A(3780+TSIGENER) 00000147 DS 2X 00000148 DC XL4'22',14X'0' 00000149 ORG *-20 00000150 DC XL2'0' 00000151 DS 18X 00000152 DC X'A2758E0BC1C1F00BF03E0004B00BCA44110E0044900BCB84740CF6X00000153 8D5011000BCBA4770CF68411010024B00BCB847F0CF685810BED81FFX00000154 FBFF7103105EF58F0BED81F00BF03F0524DE0CF841FFF58E0CEE812FX00000155 F07FE41F000041F0047F0CF6E' 00000156 DS 4X 00000157 DC X'50E0CF8012E04780CFBC1EE106E015E14740CFA09540E0004780CFX00000158 904100E00115104780CFBA954010004770CFBA4110100147F0CFA41FX00000159 0158E0CF80120007FE',40X'FF' 00000160 DC X'90E7CFC4413000015E30BE785030BE7812204780B0014120203F54X00000161 20BC20187F1837D5033000BC244770B0171843BF3F30084740B0A058X00000162 5030041B524740B00E4720B046D2034008300841E000015EE0BE7C50X00000163 E0BE7C47F0B06E41E000015EE0BE8050E0BE805863000818131E1250X00000164 104008180518F74DE0B2CA180618F44DE0B2E641E000015EE0BE8450X00000165 E0BE841813180218F74DE0B2F4411030201FFF58E0CFC45800CFCC98X00000166 27CFD412FF07FE',6X'0' 00000167 DC X'41E000015EE0BE8850E0BE88180218E25E00B09C5500700C47B0B0X00000168 C05800700C4A00BCBC4A00BCBE8800000C18208920000C152E4740B0X00000169 D7D504701BBD274770B12A9180C0A44710B102070047F0B0F4000000X00000170 1658F0B0F01B110A781FFF47F0B16E07004D10B12400040101FFFFFFX00000171 FF4104010000000006',8X'0',X'50000000A0147F0B16E9180C0A44X00000172 710B14A070047F0B13C0000007658F0B1381B110A781FFF47F0B16E0X00000173 7004D10B16C00040101FFFFFFFF4104010000000006',8X'0' 00000174 DC X'60000000A0112FF4780B18441E000015EE0BE9050E0BE9047F0B08X00000175 AD71F10001000D2031000BC2850201004D2031008BC2C41E07008BFFX00000176 FE0084740B1AC18EF47F0B19E5010E0084B20BCBC411010204130102X00000177 0180218F74DE0B2F4181318024B00BCC018F74DE0B20C41E000015EEX00000178 0BE8C50E0BE8C98E7CFC447F0CFFC' 00000179 DS 38X 00000180 DC X'90E6B1E841E000015EE0BE9450E0BE94186F4B10BCC04A00BCC254X00000181 00BC204DE0B31C18211846D5034000BC244770B23B18545840400815X00000182 244720B2324780B24B181218F64DE0B2CA180418F54DE0B2E6155647X00000183 80B2945830500418031E3515324740B2944720B27341E000015EE0BEX00000184 9850E0BE985E00200450005004D2035008200892D720031825583020X00000185 0418031E3215344740B2C44720B2A541E000015EE0BE9C50E0BE9C5EX00000186 00400450002004D2032008400892E7400398E6B1E807FE92DD1000D2X00000187 1E10011000D2031000BC2450001004D204101BF01B07FE5000' 00000188 DC X'10085010F00807FE' 00000189 DS 4X 00000190 DC X'50E0B2F092DD1000D21E100110005010100450001008D2031000BCX00000191 30D204101BF01B58E0B2F007FE551010044770B323D5031000BC3047X00000192 70B32D550010084770B335D504101BF01B4770B33F07FE' 00000193 DS 28X 00000194 DC X'9280B35C47F0B36A9200B35C90E1B344120047D0B4009540100047X00000195 70B388411010014600B37447F0B4009001B354956010004770B3AC91X00000196 80B35C47E0B4329640B35C411010014600B3AC47F0B41418E1954010X00000197 004780B3CE95F010004740B41495F910004720B414411010014600B3X00000198 AE1F1E4910BC844720B41412114780B40006104410B3FA9140B35C47X00000199 E0B3F094FDF0071F00120098E1B34407FEF270F000E0009140B35C47X00000200 10B41441E0BCC441F0000647F0B41C58E0B35858F0B3545800BC3441X00000201 10001EBFF8BD2C0E0E5810BC3847F0B44C58E0B35858F0B354' 00000202 DC X'5800BC3C4110001EBFF8BD2C0E0E5810BC404DE0B6BC4100000147X00000203 F0B3F2' 00000204 DS 12X 00000205 DC XL2'F',C'0123456789ABCDEF',X'90E0B4585500BC444720B4AAF11X00000206 0B4641000F311F000B464DC01F000B37641F0F002411010014600B48X00000207 2181F120098E0B45807FE5810BC484DE0B6BC4100000147F0B4A2' 00000208 DS 38X 00000209 DC X'90E5B4BC5500BBC04720B55E9101B4C74710B5668A00000147D0B5X00000210 6E1F550D204351000095F010004740B51895F910004720B57647F0B5X00000211 3C95C610004720B57695C1100047B0B538958110004740B576958610X00000212 004720B576415050098950001C8D400004411010010D22424F000041X00000213 F0F0014600B4FE50F0B4C847F0B58A5810BC4C47F0B5825810BC5047X00000214 F0B5825810BC5447F0B58258E0BC58D200E02E1000181E4DE0B6BC41X00000215 000001120098E5B4BC07FE' 00000216 DS 18X 00000217 DC X'9680BD9890E1B5949180C0A44710B640180107004510B62C000800X00000218 1000000000020000680080',38X'0',8C' ',2X'4040404040404040X00000219 40404040404040400000000000000000',XL44'18E11BFF4AF100001X00000220 AEF500010040A2347F0B64E1F00BF031000411010024DE0B67098E1BX00000221 59407FE' 00000222 DS 16X 00000223 DC X'50E0B6544DE0BAAC58E0B65490E1B6544DE0BAE2D5011000BCCA47X00000224 D0B6A607004D10B6A400241102FFFFFFFF',A(5804+TSIGENER),A(1X00000225 43336+TSIGENER) 00000226 DS 2X 00000227 DC 10X'0' 00000228 ORG *-12 00000229 DC XL2'0' 00000230 DS 10X 00000231 DC X'A2798E1B65407FE47F0B6AF' 00000232 DS 4X 00000233 DC X'9640BD9847F0B6C09680BD989140BECE47E0B5A850E0B6B0D202B9X00000234 AFBD2D41E0B9B341F0008041001002BF1C100088100010BF18BD2C0EX00000235 E04DE0BA4458E0B6B007FE' 00000236 DS 18X 00000237 DC 8X'0',A(5916+TSIGENER),A(7600+TSIGENER),XL4'0',C'TSIGENEX00000238 R',X'90E1B6F850F0B7189680B7185010B7085000B70C4110B708410X00000239 0B7569620BDB258F0BC5C0DEFD207B71CBB7898E1B6F807FE90ECD00X00000240 C50D0F07ED203D008F50A41D0F07A5820F50E0B021FEE0BE050E0F05X00000241 698ACF0C241E0B9AF18F049F0BC8047D0B78C47F0B78B1801181F0EEX00000242 04DE0BA4458D0D0044120B7A45620B7AC0B0298ECD00C07FE' 00000243 DS 6X 00000244 DC CL32'TSIGENER DPSSNAPM SAVE AREA',72X'0',A(8192+TSIGENERX00000245 ),A(4096+TSIGENER),A(TSIGENER) 00000246 DS 32X 00000247 DC 8X'0',A(5916+TSIGENER),A(7600+TSIGENER) 00000248 DC XL220'90E5B8244150BE1D47F0B86C90E5B8244150BE2550F0B85496X00000249 80B8545010B84418311840BD03BCCC4740B8BC4110301A5B00BC681FX00000250 EEBFE3100049E0BCCA4740B8BC150E4740B8BC411E100018F14BF0BCX00000251 B8BDE3F0004770B8BC1B0E4780B8E24720B88C5810BC6C4DE0B6BC50X00000252 30B8445040B8484110B8444100B7569680BDB2BFFFBC5C0DEF47F0B9X00000253 A218414130301AD203B848BC684110B8444100B7569680BDB2BFFFBCX00000254 5C0DEFFA705000BD02D207B71CBB58DE07B71C5004F9705000BD0347X00000255 20B926D204B71DBD3047F0B97AF9715000BCA84720B93A' 00000256 DC X'D204B71CBD3047F0B97AF9725000BD214720B94ED203B71CBC7047X00000257 F0B97AF9725000BD164720B962D202B71CBD3547F0B97AF9735000BCX00000258 744720B976D201B71CBCCE47F0B97A92C9B71C5030B8441F22BF2330X00000259 005020B8484110B8444100B7569680BDB2BFFFBC5C0DEF1E32153447X00000260 70B900D207B71CBB7898E5B82407FE',133C' ' 00000261 DS 17X 00000262 DC X'90E1BA349180C0A44710BA645810BEB84100B9AE1FFFBFF7103105X00000263 EF47F0BA92410000854110B9AE4DE0BAE24D10BA9000241102FFFFFFX00000264 FF',A(6818+TSIGENER),A(143336+TSIGENER) 00000265 DS 2X 00000266 DC 10X'0' 00000267 ORG *-12 00000268 DC XL2'0' 00000269 DS 10X 00000270 DC X'A279240B9AED283B9AFB9AE98E1BA3407FE47F0BAA5' 00000271 DS 6X 00000272 DC X'50E0BAA818E1955BE0004780BAC241E0E00147F0BAB21FE1120E58X00000273 E0BAA807FE' 00000274 DS 14X 00000275 DC X'9200BAD847F0BAE69280BAD890E0BACC12F04780BB10BDF3BCD047X00000276 D0BAFC41F000FF41EF100006E09540E0004770BB1006E046F0BB0258X00000277 E0BC789180BAD847E0BB249240E00041E0E0011801181F0EE05810BCX00000278 7C1FE1BEE3100098E0BACC07FE' 00000279 DS 6X 00000280 DC CL25'DUMP-OUTPUT-PLOGOUT_',5X'20',X'2120',C'DCB FOR SYSOX00000281 UT SYSDTA TSIGENER',A(X'800000C8'+TSIGENER),A(146892+TX00000282 SIGENER),C'OUTPUT-FILESCOPYCHOP',A(143982+TSIGENER),A(14X00000283 3945+TSIGENER),A(144645+TSIGENER),A(144474+TSIGENER),A(1X00000284 44514+TSIGENER),A(144553+TSIGENER),A(12288+TSIGENER),A(1X00000285 44371+TSIGENER),A(143324+TSIGENER),XL4'FFF0',A(77808+TSIX00000286 GENER),A(143328+TSIGENER),A(144676+TSIGENER),A(144741+TSX00000287 IGENER),A(144419+TSIGENER),A(144921+TSIGENER) 00000288 DC A(144972+TSIGENER),A(145034+TSIGENER),A(145089+TSIGENER)X00000289 ,A(145154+TSIGENER),A(145220+TSIGENER),A(145277+TSIGENERX00000290 ),A(145344+TSIGENER),A(145412+TSIGENER),X'9999999C',A(14X00000291 4820+TSIGENER),A(144865+TSIGENER),X'FFFFFFFF',C'OUTR',A(X00000292 143813+TSIGENER),A(144310+TSIGENER),A(143780+TSIGENER),AX00000293 (3780+TSIGENER),X'FFFFFFE0',CL8'FQE MBE',X'FFFFFFFF',CL4X00000294 'GQE',A(143915+TSIGENER),A(143874+TSIGENER),A(144280+TSIX00000295 GENER),A(144247+TSIGENER),XL4'7FF8',A(144012+TSIGENER) 00000296 DC A(144062+TSIGENER),A(144113+TSIGENER),A(144158+TSIGENER)X00000297 ,A(144200+TSIGENER),A(147164+TSIGENER),A(6096+TSIGENER),X00000298 A(X'8000176E'+TSIGENER),XL4'1A',A(144604+TSIGENER),X'C9DX00000299 4C1C70999999C',A(143340+TSIGENER),A(143336+TSIGENER),XL1X00000300 2'840010000F000C000B000A',C'DUMP-INPUT',XL2'6',C'ENCODEDX00000301 ECODE',XL8'40008999C099C',C'OUTREC',XL32'20C9D505E100026X00000302 16100200FFF0020003FADD5E4D3D3BD0005001DC9D400FF',C'DUMP-X00000303 INPUT-PLOGDUMP-OUTPUTTRUNCATE-TOINPUT-FILES' 00000304 DC X'1C9C402020',3X'20206B20',X'21200C99999C',2C'INR',X'C5CX00000305 309999C',C'OUTBELOW >>>IMAGEIMG',XL4'50' 00000306 DS 92X 00000307 DC XL3'0' 00000308 DS 21X 00000309 DC XL2'10',8X'0',10X'C00000000000000',X'1C',7X'0',X'1C1C1C'X00000310 ,7C'r',X'9C000000',2XL8'C000000',X'C6D8C54000000000FFFFFX00000311 FFF00001000FFFFFFFF',7X'0',CL9'BELOWFQE',XL16'FFFFFFFF00X00000312 001000FFFFFFFF',7X'0',C'ABOVE',48X'0',12X'FF' 00000313 DS 4X 00000314 DC CL8'SYSOUT',XL4'0',A(145460+TSIGENER),9X'0',X'6000000000X00000315 A000',CL8'SYSDTA',XL4'0',A(145708+TSIGENER),9X'0',X'6000X00000316 0000001000',CL8'IN1',XL4'0',A(145556+TSIGENER),A(145956+X00000317 TSIGENER),5X'0',X'6001C000000000',CL8'IN2',XL4'0',A(1455X00000318 56+TSIGENER),A(145956+TSIGENER),5X'0',X'6001C000000000',X00000319 CL8'IN3',XL4'0',A(145556+TSIGENER),A(145956+TSIGENER),5XX00000320 '0',X'6001C000000000',CL8'IN4',XL4'0',A(145556+TSIGENER)X00000321 ,A(145956+TSIGENER),5X'0',X'6001C000000000',CL8'IN5' 00000322 DC XL4'0',A(145556+TSIGENER),A(145956+TSIGENER),5X'0',X'600X00000323 1C000000000',CL8'IN6',XL4'0',A(145556+TSIGENER),A(145956X00000324 +TSIGENER),5X'0',X'6001C000000000',CL8'IN7',XL4'0',A(145X00000325 556+TSIGENER),A(145956+TSIGENER),5X'0',X'6001C000000000'X00000326 ,CL8'IN8',XL4'0',A(145556+TSIGENER),A(145956+TSIGENER),5X00000327 X'0',X'6001C000000000',CL8'IN9',XL4'0',A(145556+TSIGENERX00000328 ),A(145956+TSIGENER),5X'0',X'6001C000000000',CL8'OUT1',XX00000329 L4'0',A(145860+TSIGENER),A(146404+TSIGENER),5X'0' 00000330 DC X'6001C000008000',CL8'OUT2',XL4'0',A(145860+TSIGENER),A(X00000331 146404+TSIGENER),5X'0',X'6001C000008000',CL8'OUT3',XL4'0X00000332 ',A(145860+TSIGENER),A(146404+TSIGENER),5X'0',X'6001C000X00000333 008000',CL8'OUT4',XL4'0',A(145860+TSIGENER),A(146404+TSIX00000334 GENER),5X'0',X'6001C000008000',CL8'OUT5',XL4'0',A(145860X00000335 +TSIGENER),A(146404+TSIGENER),5X'0',X'6001C000008000',CLX00000336 8'OUT6',XL4'0',A(145860+TSIGENER),A(146404+TSIGENER),5X'X00000337 0',X'6001C000008000',CL8'OUT7',XL4'0',A(145860+TSIGENER) 00000338 DC A(146404+TSIGENER),5X'0',X'6001C000008000',CL8'OUT8',XL4X00000339 '0',A(145860+TSIGENER),A(146404+TSIGENER),5X'0',X'6001C0X00000340 00008000',CL8'OUT9',XL4'0',A(145860+TSIGENER),A(146404+TX00000341 SIGENER),5X'0',X'6001C000008000FF000000',8X'FF',500X'EE'X00000342 00000343 DS 134320X 00000344 DC XL4'80000',C'0000',260X'0' 00000345 DS 184X 00000346 DC XL2'1F',CL23'001E - OPEN FAILED FOR',8C'X',XL2'3B',CL51'X00000347 002I - DD/LINK STATEMENT MISSING FOR OPTIONAL FILE',8C'XX00000348 ' 00000349 ORG *-8 00000350 DC 8C' ',XL2'45',CL39'003E - EXPECTED DECIMAL NUMBER, FOUNDX00000351 :',3C'1234567890' 00000352 ORG *-30 00000353 DC 30C' ',XL2'41',CL35'004E - INVALID OPTION FROM SYSDTA:',X00000354 3C'1234567890' 00000355 ORG *-30 00000356 DC 30C' ',XL2'30',C'005E - ENCODE CONVERSION EXCEEDS 32760 X00000357 HEX BYTES',XL2'31',C'006E - DECODE CONVERSION EXCEEDS 65X00000358 520 CHARACTERS',XL2'2B',C'007E - DECODE CONVERSION ODD NX00000359 BR CHARACTERS',XL2'28',C'008E - DECODE CONVERSION ZERO CX00000360 HARACTERS',XL2'2D',C'009E - DECODE CONVERSION BAD HEX CHX00000361 ARACTER: X' 00000362 ORG *-1 00000363 DC X'E7003D',CL31'010E - NEG VALUE NOT ALLOWED:',3C'1234567X00000364 890' 00000365 ORG *-30 00000366 DC 30C' ',XL2'3B',CL51'011E - DD/LINK STATEMENT MISSING FORX00000367 REQUIRED FILE',8C'X' 00000368 ORG *-8 00000369 DC 8C' ',XL2'2E',C'012E - EXPECTED 8-BYTE COUNT RECORD FOR X00000370 DECODE',XL2'35',C'013E - UNEXPECTED EOD ON INX DURING DEX00000371 CODE CONVERSION',XL2'26',C'014E - TOO MANY OUTPUT FILES,X00000372 MAX IS 9',XL2'25',C'015E - TOO MANY INPUT FILES, MAX ISX00000373 9',XL2'31',C'016E - OUTPUT-FILES OPTION REQUIRES COPY FX00000374 UNCTION',XL2'27',C'017W - RECORD IS NOT A VALID PLOG BLOX00000375 CK',XL2'1D',C'018E - ENCODE/DECODE CONFLICT',XL2'3F',C'2X00000376 00I - CALCULATING NBR BYTES IN OUTPUT FILE... XXXX' 00000377 DC 3C',XXX' 00000378 ORG *-17 00000379 DC X'402020',3X'20206B20',X'212000',C'(201I - APPROXIMATELYX00000380 XXXX',3C',XXX',C' BYTES WILL BE WRITTEN TO EACH OUT_ FIX00000381 LE' 00000382 ORG *-57 00000383 DC X'402020',3X'20206B20',X'2120' 00000384 DS 40X 00000385 DC XL2'2B',C'202I - XXXX',3C',XXX',C' BYTES READ FROM IN_' 00000386 ORG *-1 00000387 DC C'_' 00000388 ORG *-37 00000389 DC X'402020',3X'20206B20',X'2120' 00000390 DS 20X 00000391 DC XL2'36',C'203I - XXXX',3C',XXX',C' PHYSICAL RECORDS READX00000392 FROM IN_' 00000393 ORG *-1 00000394 DC C'_' 00000395 ORG *-48 00000396 DC X'402020',3X'20206B20',X'2120' 00000397 DS 31X 00000398 DC XL2'31',C'204I - XXXX',3C',XXX',CL18' BYTES WRITTEN TO',X00000399 8C'X' 00000400 ORG *-8 00000401 DC 8C' ' 00000402 ORG *-43 00000403 DC X'402020',3X'20206B20',X'2120' 00000404 DS 26X 00000405 DC XL2'3C',C'205I - XXXX',3C',XXX',CL29' PHYSICAL RECORDS WX00000406 RITTEN TO',8C'X' 00000407 ORG *-8 00000408 DC 8C' ' 00000409 ORG *-54 00000410 DC X'402020',3X'20206B20',X'2120' 00000411 DS 37X 00000412 DC XL2'35',C'490I - XXXX',3C',XXX',C' BYTES READ FROM ALL IX00000413 N_ FILES' 00000414 ORG *-47 00000415 DC X'402020',3X'20206B20',X'2120' 00000416 DS 30X 00000417 DC XL2'3F',C'493I - XXXX',3C',XXX',C' LOGICAL RECORDS READ X00000418 FROM ALL IN_ FILES' 00000419 ORG *-57 00000420 DC X'402020',3X'20206B20',X'2120' 00000421 DS 40X 00000422 DC X'0',C' 497I - XXXX',3C',XXX',C' PHYSICAL RECORDS READ FX00000423 ROM ALL IN_ FILES' 00000424 ORG *-58 00000425 DC X'402020',3X'20206B20',X'2120' 00000426 DS 41X 00000427 DC XL2'37',C'590I - XXXX',3C',XXX',C' BYTES WRITTEN TO ALL X00000428 OUT_ FILES' 00000429 ORG *-49 00000430 DC X'402020',3X'20206B20',X'2120' 00000431 DS 32X 00000432 DC XL2'41',C'593I - XXXX',3C',XXX',C' LOGICAL RECORDS WRITTX00000433 EN TO ALL OUT_ FILES' 00000434 ORG *-59 00000435 DC X'402020',3X'20206B20',X'2120' 00000436 DS 42X 00000437 DC XL2'42',C'599I - XXXX',3C',XXX',C' PHYSICAL RECORDS WRITX00000438 TEN TO ALL OUT_ FILES' 00000439 ORG *-60 00000440 DC X'402020',3X'20206B20',X'2120' 00000441 DS 43X 00000442 DC XL2'2E',CL46'999I - TERMINATION WITH RETURN CODE 1234567X00000443 89' 00000444 ORG *-10 00000445 DC 9C' ' 00000446 DS 1X 00000447 DC 23X'0',X'100004000',2XL4'1',X'94000000',CL8'SYSOUT',X'20X00000448 00050',2XL4'1',11X'0',3X'1000000',X'8500000001',7X'0',X'X00000449 1',A(145652+TSIGENER),19X'0',X'1000040000000000184000001X00000450 00000000',CL8'IN',X'2004800',2XL4'1',8X'0',3XL4'1',2XL8'X00000451 1',X'C4C3C2C50038',11X'0',X'80',22X'0',A(2196+TSIGENER),X00000452 12X'0',A(145804+TSIGENER),19X'0',X'100004000000000018400X00000453 000100000000',CL8'SYSDTA',X'2004800',2XL4'1',8X'0',3XL4'X00000454 1',2XL8'1',X'C4C3C2C50038',11X'0',X'80',22X'0' 00000455 DC A(3958+TSIGENER),35X'0',X'100004000',2XL4'1',X'50000000'X00000456 ,CL8'OUT',X'2000050',2XL4'1',9X'0',3XL4'100',2XL8'100',XX00000457 'E0101FFFFFFFF0800404080',11X'0',X'8001000508010F0100820X00000458 0020200',CL8'IN',CL54'IN',63X'0',X'1C',16X'0',X'40000000X00000459 090',30X'0',A(146852+TSIGENER),60X'0',X'AA3',13X'0',X'80X00000460 ',8X'0',4A(146236+TSIGENER),XL4'0',14A(146236+TSIGENER),X00000461 69X'0',X'E0101FFFFFFFF8800404080',11X'0',X'8001000508010X00000462 F04008200020000',CL8'OUT',CL54'OUT',63X'0',X'1C',16X'0' 00000463 DC X'40000000090',94X'0',X'AA3',13X'0',X'80',8X'0',4A(14668X00000464 4+TSIGENER),XL4'0',14A(146684+TSIGENER),68X'0',15X'FF',XX00000465 '0',10X'FF',X'C0',7X'FF',XL2'0',A(2196+TSIGENER),XL75'10X00000466 2030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1X00000467 E1F202122232425262728292A2B2C2D2E2F303132333435363738393X00000468 A3B3C3D3E3F404142434445464748494A',C'.<(+|&&',X'51525354X00000469 5556575859',C'!$*);',X'5F606162636465666768696A',C',%_>?X00000470 ',X'70717273747576777879',C':#@''="',X'80',C'ABCDEFGHI' 00000471 DC X'8A8B8C8D8E8F90',C'JKLMNOPQR',X'9A9B9C9D9E9FA0A1',C'STUX00000472 VWXYZ',X'AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBFC0'X00000473 ,C'ABCDEFGHI',X'CACBCCCDCECFD0',C'JKLMNOPQR',X'DADBDCDDDX00000474 EDFE0E1',C'STUVWXYZ',X'EAEBECEDEEEF',C'0123456789',X'FAFX00000475 BFCFDFEFF',C'DPSSNAPM07/20/06',X'90ECD00C18CF50D0C698D20X00000476 3D008C62441D0C6945000C6DCD703',C'G&&G&&k' 00000477 DC XL68'C76818715810100CD202C76A1000D2011000C64892001002583X00000478 070044130300048E0C76A49E0C64A47D0C05041E0002049E0C64C47BX00000479 0C05C41E00010153E47B0C06818',CL6'To G%' 00000480 DC X'E0C76A8CE0000288F0001E12FF4770C08241F0000447F0C08641E0X00000481 E00150E0C73850F0C73C4DE0C5221FEE58107008D207C75410004110X00000482 C75B4100C75415104740C0E8954010004770C0B84610C0A6927A1001X00000483 41E010021FE049E0C64E47B0C0E44110100141F0C75CD200F0001000X00000484 92401000061006F046E0C0D241E0000A40E0C7669180700C4710C13EX00000485 586070104160600012664780C13E18264100012C955B60004780C118X00000486 416060014600C1081B624780C13ED208C75DC7544DE0C52241F0C6E0X00000487 180618124DE0C39E4DE0C4E8D208C754C75D12334770C152D2' 00000488 DC X'27C6E0C5FC4DE0C4E847F0C3601F2258',2X'70700041',X'F0C6EX00000489 04AF0C766',C'&&0G &&0G' 00000490 DC X'4450F0C748D501C76AC6484720C18A41F0F00850F0C74441F0F004X00000491 50F0C7485070C74CD208C6E0C75458F0C7409180C76C4710C1C21817X00000492 4DE0C45055F0C74447D0C1B650F0C74450F0C7489120C76C47E0C1C2X00000493 9680C76C58F0C7449140C76C4710C1F641E0F00450E0C7485520C628X00000494 4720C1F012224770C1E841F0F001924EF00041F0F00118124DE0C450X00000495 55F0C7484720C20258F0C74850F0C7345850C7384C50C6501E5F5550X00000496 C62C47B0C230925CC71D925CC72E4150C71E4100C71D5000C73047F0X00000497 C2605550C6304720',C'B!&&&&G' 00000498 DC X'30925C50004150500118154A10C76A5510C63047B0C25A925C1000X00000499 47F0C26006505050C7305840C738416000044940C6524770C2745860X00000500 C73C15364720C2801863414000014106F0001E065500C6304720C296X00000501 180618174DE0C4B618E6410E50005500C63047D0C2B04100C72F1B05X00000502 47D0C2BA18E006E044E0C37C44E0C3821E261E761E561F364640C264X00000503 12334780C3164DE0C4E84860C76A947FC768153647D0C18A58F0C74CX00000504 18E606E044E0C3884770C18A9180C7684710C30C58E0C734D209E000X00000505 C65441F0E00B9680C7684DE0C4E81E261E761F3647' 00000506 DC X'F0C2D89108C76C47E0C35C5800C7301B0F4900C65E4740C34ED202X00000507 F000C6664900C6604740C35CD20AF004C6694900C6624740C35C18EFX00000508 47F0C3564DE0C4E858E0C734D213E000C6344DE0C4E8D201C76AC648X00000509 9200C76C5810C75058D0D0045010D01898ECD00C07FED20050007000X00000510 DC005000C76DD500F0007000' 00000511 DS 16X 00000512 DC X'90EFC3904000C39C58E0C39441F0C72F1BFE15F04740C3BC18F047X00000513 F0C40249F0C6644740C41E41FF100047',C'0CMn-0',XL125'4780C3X00000514 FA9540F0004780C3F006F015F14770C3CC41F0C72F1BFE180F47F0C4X00000515 021FF14100F00147F0C40241F0F0011FF1180F06F044F0C43441EFE0X00000516 011E1011004A00C39C120047D0C43A4000C39C5010C3984DE0C4E818X00000517 EF4800C39C5810C39847F0C3AAD200E0001000181E41F010014100C7X00000518 2F1B0F58E0C39007FE' 00000519 DS 4X 00000520 DC C'&&',2X'10C44C41',XL77'491F010004770C4B6910F10004770C47X00000521 A411010014600C45C061041000001D100F000100096F0F000DC00F00X00000522 0C3B641F0F001411010014600C4B6181F41F010014100C72F1B0F07FX00000523 E000F',C'0123456789ABCDEF1',X'10C4A41000F311F000C4A4DC01X00000524 F000C3B641F0F002411010014600C4B6181F41F0F0014100C72F1B0FX00000525 07FE' 00000526 DS 6X 00000527 DC X'50E0C4E458E0C75041E0E00150E0C7504100004E4110C6E058F0C6X00000528 DC4A00C6520DEF58E0',C'DUk F',X'E0D24DC6E1C6E041F0C6E0911X00000529 0C76C071E9240C754D207C755C75407FE',200X'EE' 00000530 DS 6X 00000531 DC C'ZERO LENGTH DUMP REQUESTED FROM DPSSNAPM',A(148848+TSIX00000532 GENER),XL4'FF',A(148985+TSIGENER),A(149003+TSIGENER),C'.X00000533 .. (DUMP TRUNCATED)',XL12'1000200004000900090001',C'-- SX00000534 AME --',XL8'3000F00140002',CL46'...(TRUNCATED)DPSSNAPM SX00000535 AVE AREA',72X'0' 00000536 DS 4X 00000537 DC 79C' ',9X'0' 00000538 DS 48X 00000539 DC X'0' 00000540 DS 1X 00000541 DC XL3'1000',64C'.',C' ',9C'.',X'4A',C'.<(+|&&',9C'.',C'!$*X00000542 );',X'5F6061',8C'.',X'6A',C',%_>?....',X'74BB',C'....:#@X00000543 ''=".abcdefghi.',X'8B8C8D8E8F',C'.jklmnopqr.',X'9B9C9D9EX00000544 9F4BA1',C'stuvwxyz.',X'ABACADAEAF',11C'.',X'BBBCBDBE4BC0X00000545 ',C'ABCDEFGHI',6C'.',X'D0',C'JKLMNOPQR',8C'.',C'STUVWXYZX00000546 ',6C'.',C'0123456789',6C'.' 00000547 VSEEP EQU TSIGENER+44 00000548 ENTRY VSEEP 00000549 MVSEP EQU TSIGENER+56 00000550 ENTRY MVSEP 00000551 END 00000552 +.GENEND //end /REMARK -------------------------------------------------------------* /REMARK Assemble TSIGENER /REMARK -------------------------------------------------------------* /assign-sysout *prim /start-assembh //compile - //source=*lib(&TRMLIB,TSIGENER), - //mac-lib=&MACLIB, - //copy-lib=&MACLIB, - //comp-action=*mod-gen(module-format=*om), - //mod-lib=&TRMLIB(ELEM=TSIGENER) //step //end /set-job-step /assign-sysout *prim /assign-syslst *prim /assign-sysdta *prim /end-procedure