|
&NAME NOTE &DCB,&DUMMY=,&TYPE=REL 00020000
* $MAC(NOTE): 00030000
* 5665-XA2 00032000
* CONTAINS RESTRICTED MATERIALS OF IBM 00034000
* (C) COPYRIGHT IBM CORP. 1984 00036000
* LICENSED MATERIALS - PROPERTY OF IBM 00038000
* REFER TO COPYRIGHT INSTRUCTIONS 00040000
* FORM NUMBER G120-2083. 00042000
* STATUS = MVS/XA DFP RELEASE 1.2 @H1 00044000
* 00046990
* CHANGE ACTIVITY = 00120000
* 00130000
* $H1=3480,JDP1111,,STLPKH: 3480 SUPPORT * 00140000
* 00150000
AIF ('&DCB' EQ '').ERR 00160000
&NAME IHBINNRA &DCB 00170000
AIF ('&TYPE' NE 'REL').NOTREL @H1A 00180000
L 15,84(0,1) LOAD NOTE RTN ADDRESS 00190000
BALR 14,15 LINK TO NOTE ROUTINE 00200000
MEXIT 00210000
NOTREL AIF ('&TYPE' NE 'ABS').ERR1 @H1A 00220000
SLR 0,0 INDICATES NOTE MACRO @H1A 00230000
LA 15,32 ROUTER CODE @H1A 00240000
SVC 109 SUPERVISOR CALL @H1A 00250000
MEXIT @H1A 00260000
ERR1 MNOTE 8,'INVALID PARAMETER FOR TYPE' @H1A 00270000
MEXIT @H1A 00280000
ERR IHBERMAC 6 00290000
MEND 00300000
mark opsyn note Comments of generated statements occupy same 00141000
mark (6) 'COLUMNS' as those in MODEL statements 00142000
LR 1,6 LOAD PARAMETER REG 1 02-IHBIN
L 15,84(0,1) LOAD NOTE RTN ADDRESS 01-00172
BALR 14,15 LINK TO NOTE ROUTINE 01
¤ Dauer der Verarbeitung: 0.0 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.
|
