//* ðPOBEPKA ðPOçPAMMù ðOCTPOEHéñ COOâýEHéê DMSG0001 //TBLDMSG JOB (MOEC,MOEC,,,,0720,1,N),' ìATùûKO',MSGLEVEL=(2,0) DMSG0002 //S1 EXEC ASM2CG,PARM.ASM='OBJECT,NODECK,NOESD,NORLD,NOXREF', DMSG0003 // MAC0='SL.S', DMSG0004 // PARM.GO='/ðOìE PARM' DMSG0005 TEST TITLE 'ðPOBEPKA ðPOçPAMMù ðOCTPOEHéñ COOâýEHéê' DMSG0006 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 23.05.88 BPEMñ 23.19 * æOKõC DMSG0007 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 * DMSG0008 MACRO DMSG0009 &L #PR &N,&C DMSG0010 &L IHBLADR 0,&N DMSG0011 BAL 10,PRINT&C DMSG0012 MEND DMSG0013 MACRO DMSG0014 &L #TDEC &N DMSG0015 &L LH 9,=H'&N' DMSG0016 BAL 10,TESTDEC DMSG0017 MEND DMSG0018 * DMSG0019 TBLDMSG CSECT DMSG0020 PRINT NOGEN DMSG0021 LR 11,15 DMSG0022 USING TBLDMSG,11 DMSG0023 L 2,0(1) DMSG0024 * DMSG0025 LOAD EPLOC=PGMNAME DMSG0026 ST 0,PGMADR DMSG0027 * DMSG0028 L 6,16 CVT DMSG0029 L 3,0(6) CVTTCBP DMSG0030 L 4,4(3) TCB DMSG0031 L 5,12(4) TIOT DMSG0032 OPEN (PR,(OUTPUT)) DMSG0033 *********************************************************************** DMSG0034 LA 0,TAB1 DMSG0035 LCR 0,0 DMSG0036 BAL 10,PRINT DMSG0037 #PR 2 DMSG0038 * DMSG0039 TEST1 #PR 1,H DMSG0040 #PR 4 DMSG0041 * DMSG0042 TEST2 #PR 2,H DMSG0043 #PR 5 DMSG0044 #PR 6 DMSG0045 * DMSG0046 TEST3 #PR 3,H B 7-22 DMSG0047 LA 9,6 DMSG0048 TEST3L LA 9,1(9) DMSG0049 CH 9,=H'22' DMSG0050 BH TEST4 /// DMSG0051 #PR (9) DMSG0052 B TEST3L DMSG0053 * DMSG0054 TEST4 #PR 4,H D,P 23 DMSG0055 #TDEC 1000 DMSG0056 #TDEC 999 DMSG0057 #TDEC 100 DMSG0058 #TDEC 99 DMSG0059 LA 9,12 DMSG0060 TEST4L BAL 10,TESTDEC DMSG0061 CH 9,=H'-11' DMSG0062 BL TEST4#2 DMSG0063 BCTR 9,0 DMSG0064 B TEST4L DMSG0065 TEST4#2 #TDEC -99 DMSG0066 #TDEC -100 DMSG0067 #TDEC -999 DMSG0068 #TDEC -1000 DMSG0069 * DMSG0070 TEST5 #PR 5,H DMSG0071 #PR 25 DMSG0072 LA 9,10 DMSG0073 TEST5L LR 6,9 DMSG0074 STH 6,X DMSG0075 MH 6,X DMSG0076 #PR 26 DMSG0077 BCTR 9,0 DMSG0078 CH 9,=H'-11' DMSG0079 BH TEST5L DMSG0080 * DMSG0081 TEST6 #PR 6,H A,DX,DD 27-30 DMSG0082 LA 9,26 DMSG0083 TEST6L LA 9,1(9) DMSG0084 CH 9,=H'30' DMSG0085 BH TEST7 DMSG0086 #PR (9) DMSG0087 B TEST6L DMSG0088 * DMSG0089 TEST7 #PR 7,H DMSG0090 #PR 32 DMSG0091 * DMSG0092 TEST8 #PR 8,H DMSG0093 #PR 0 DMSG0094 #PR 50 DMSG0095 * DMSG0096 SVC 3 DMSG0097 *********************************************************************** DMSG0098 PRINTH BUILDMSG TC=(CALL,PGMADR),TAB=HTAB,NUM=(0),BUF=BUF DMSG0099 PUT PR,EMPTY DMSG0100 PUT PR,BUF+4 DMSG0101 BR 10 DMSG0102 * DMSG0103 PRINT BUILDMSG TAB=TAB,NUM=(0),BUF=BUF DMSG0104 LTR 15,15 DMSG0105 BNZ PRINTER DMSG0106 PUT PR,BUF+4 DMSG0107 BR 10 DMSG0108 PRINTER PUT PR,ERRMSG DMSG0109 PUT PR,BUF+4 DMSG0110 BR 10 DMSG0111 *********************************************************************** DMSG0112 TESTDEC ST 9,X DMSG0113 CVD 9,XP DMSG0114 LA 0,23 DMSG0115 B PRINT DMSG0116 *********************************************************************** DMSG0117 PR DCB DDNAME=SYSPRINT,MACRF=PM,RECFM=VB,LRECL=128,BLKSIZE=500,*DMSG0118 DSORG=PS DMSG0119 PGMADR DS F DMSG0120 WORD DS F DMSG0121 PGMNAME DC CL8'SLBLDMSG' DMSG0122 CD DC C'CD' DMSG0123 D EQU CD+1,1 DMSG0124 EMPTY WTO ' ',MF=L DMSG0125 ERRMSG WTO ' RC^=0',MF=L DMSG0126 BUF DS D DMSG0127 DS CL128 DMSG0128 XP DS D DMSG0129 X DS F DMSG0130 SPACE 2 DMSG0131 HTAB MSGTAB (+S,'CéMBOìøHOçO é','ûECTHAäãATEPéþHOçO','æOPMATA'), 1 *DMSG0132 (,+S,'ðEPEMEHHOê äìéHù'), 2 *DMSG0133 (+S,'ûECTHAäãATEPéþHOçO','é äBOéþHOçO','æOPMATA'), 3 *DMSG0134 (+S,'äECñTéþHOçO','æOPMATA'), 4 *DMSG0135 (+S,'úAðOìHEHéñ CéMBOìOM é TAâõìñãéé'), 5 *DMSG0136 (+S,'æOPMATOB "AäPEC" é "CMEýEHéE"'), 6 *DMSG0137 (+S,'ðEPEXOäA'), 7 *DMSG0138 (+S,'äéAçHOCTéKé'), 8 *DMSG0139 PREFIX=('TEST',(*,2),' ðPOBEPKA'),FIRST=1 DMSG0140 SPACE 2 DMSG0141 TAB MSGTAB (+S,'ðPOBEPKA ðPOçPAMMù',PGMNAME), 1 *DMSG0142 (('-',100,*)), 2 *DMSG0143 , 3 *DMSG0144 ((0(5),8),+L,(8(5),8,,S),('TCB=',,,S),-L,(5(3),6,X), *DMSG0145 ('TIOT=',,,S),(13(4),6,X),' PRTY=',(35(4),3,D1), *DMSG0146 ' KEY=',(28(4),1,X)), 4 *DMSG0147 ('PARM=''',(1(2),*25),''''), 5 *DMSG0148 ('PARM=''',(1(2),*50,X),''''), 6 *DMSG0149 (CD,+S,(' ',1,*),(CD+0,4,X0),(' ',01,*),(CD+0,16,B0)), *DMSG0150 (CD,+S,(' ',1,*),(CD+0,4,X0),(' ',02,*),(CD+0,15,B1)), *DMSG0151 (CD,+S,(' ',1,*),(CD+0,4,X0),(' ',03,*),(CD+0,14,B2)), *DMSG0152 (CD,+S,(' ',1,*),(CD+0,4,X0),(' ',04,*),(CD+0,13,B3)), *DMSG0153 (CD,+S,(' ',2,*),(CD+0,3,X1),(' ',05,*),(CD+0,12,B4)), *DMSG0154 (CD,+S,(' ',2,*),(CD+0,3,X1),(' ',06,*),(CD+0,11,B5)), *DMSG0155 (CD,+S,(' ',2,*),(CD+0,3,X1),(' ',07,*),(CD+0,10,B6)), *DMSG0156 (CD,+S,(' ',2,*),(CD+0,3,X1),(' ',08,*),(CD+0,09,B7)), *DMSG0157 (+S,D,(' ',3,*),(CD+1,2,X0),(' ',09,*),(CD+1,08,B0)), *DMSG0158 (+S,D,(' ',3,*),(CD+1,2,X0),(' ',10,*),(CD+1,07,B1)), *DMSG0159 (+S,D,(' ',3,*),(CD+1,2,X0),(' ',11,*),(CD+1,06,B2)), *DMSG0160 (+S,D,(' ',3,*),(CD+1,2,X0),(' ',12,*),(CD+1,05,B3)), *DMSG0161 (+S,D,(' ',4,*),(CD+1,1,X1),(' ',13,*),(CD+1,04,B4)), *DMSG0162 (+S,D,(' ',4,*),(CD+1,1,X1),(' ',14,*),(CD+1,03,B5)), *DMSG0163 (+S,D,(' ',4,*),(CD+1,1,X1),(' ',15,*),(CD+1,02,B6)), *DMSG0164 (+S,D,(' ',4,*),(CD+1,1,X1),(' ',16,*),(CD+1,01,B7)), *DMSG0165 (+S,(X,8,X),(XP+4,8,X),' ', *DMSG0166 (X,4,D4),(X,3,D4),(X,2,D4),(X,1,D4),' ', *DMSG0167 +E,(X+2,4,D2),(X+2,3,D2),(X+2,2,D2),(X+2,1,D2),' ', *DMSG0168 -E,(X+3,3,D1),(X+3,2,D1),(X+3,1,D1),-), <-ðEPEHOC !! 23 *DMSG0169 (+S,(XP+4,4,P4),(XP+4,3,P4),(XP+4,2,P4),(XP+4,1,P4),' ',*DMSG0170 (XP+6,3,P2),(XP+6,2,P2),(XP+6,1,P2),' ', *DMSG0171 (XP+7,2,P1),(XP+7,1,P1)), 24 *DMSG0172 (('-',120,*),=10,'10',=20,'20',=30,'30',=40,'40', *DMSG0173 =50,'50',=60,'60',=70,'70',=80,'80'), 25 *DMSG0174 ((' ',100,*),=10,'!',=20,'!',=30,'!',=40,'!',=50,'!', *DMSG0175 =60,'!',=70,'!',=80,'!',=90,'!',=100,'!', *DMSG0176 =0(6),'*',=100), 26 *DMSG0177 (+S,'TBLDMSG',(TBLDMSG,,A),(TBLDMSG,,DX),(TBLDMSG,,DD)),*DMSG0178 (+S,'TEST3L ',(TEST3L,,A),(TEST3L,,DX),(TEST3L,,DD)), *DMSG0179 (+S,'TEST4L ',(TEST4L,,A),(TEST4L,,DX),(TEST4L,,DD)), *DMSG0180 (+S,'BUF ',(BUF,,A),(BUF,,DX),(BUF,,DD)), 30 *DMSG0181 , 31 *DMSG0182 ('>> OCHOBHOE COOâýEHéE ',, *DMSG0183 ' OCHOBHOE COOâýEHéE <<'), 32 *DMSG0184 ('>> 1 BCTABKA 1 ',,' 1 BCTABKA 1 <<'), 33 *DMSG0185 ('>> 2 BCTABKA 2 <<'), 34 *DMSG0186 PREFIX=(' '),TAIL=(('<-- END OF LINE')), *DMSG0187 FIRST=1,MAXLEN=128 DMSG0188 END DMSG0189 //GO.SYSLOUT DD DUMMY DMSG0190 //GO.SYSPRINT DD SYSOUT=A DMSG0191 /*EOF DMSG0192 //* DMSG0193 //* DMSG0194 //* DMSG0195 //* DMSG0196 //* DMSG0197 //* DMSG0198 //* DMSG0199 //* DMSG0200