|
151 ********************************************************************** 00136000
S 153 copy note 00138000
154= MACRO 00010000
155=&NAME NOTE &DCB,&DUMMY=,&TYPE=REL 00020000
156=.* $MAC(NOTE): 00030000
157=.* 5665-XA2 00032000
158=.* CONTAINS RESTRICTED MATERIALS OF IBM 00034000
159=.* (C) COPYRIGHT IBM CORP. 1984 00036000
160=.* LICENSED MATERIALS - PROPERTY OF IBM 00038000
161=.* REFER TO COPYRIGHT INSTRUCTIONS 00040000
162=.* FORM NUMBER G120-2083. 00042000
163=.* STATUS = MVS/XA DFP RELEASE 1.2 @H1 00044000
164=.* 00046990
165=.* CHANGE ACTIVITY = 00120000
166=.* 00130000
167=.* $H1=3480,JDP1111,,STLPKH: 3480 SUPPORT * 00140000
168=.* 00150000
169= AIF ('&DCB' EQ '').ERR 00160000
170=&NAME IHBINNRA &DCB 00170000
171= AIF ('&TYPE' NE 'REL').NOTREL @H1A 00180000
172= L 15,84(0,1) LOAD NOTE RTN ADDRESS 00190000
173= BALR 14,15 LINK TO NOTE ROUTINE 00200000
174= MEXIT 00210000
175=.NOTREL AIF ('&TYPE' NE 'ABS').ERR1 @H1A 00220000
176= SLR 0,0 INDICATES NOTE MACRO @H1A 00230000
177= LA 15,32 ROUTER CODE @H1A 00240000
178= SVC 109 SUPERVISOR CALL @H1A 00250000
179= MEXIT @H1A 00260000
180=.ERR1 MNOTE 8,'INVALID PARAMETER FOR TYPE' @H1A 00270000
181= MEXIT @H1A 00280000
182=.ERR IHBERMAC 6 00290000
183= MEND 00300000
T 186 mark opsyn note Comments of generated statements occupy same 00141000
187 mark (6) 'COLUMNS' as those in MODEL statements 00142000
000088 1816 189+ LR 1,6 LOAD PARAMETER REG 1 02-IHBIN
00008A 58F0 1054 00054 190+ L 15,84(0,1) LOAD NOTE RTN ADDRESS 01-00172
00008E 05EF 191+ BALR 14,15 LINK TO NOTE ROUTINE 01
¤ Dauer der Verarbeitung: 0.18 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
