&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
¤ 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.0.1Bemerkung:
(vorverarbeitet)
¤
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.
