Quelle  mac2.hlasm

&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