Quelle  macro.hlasm   Sprache: unbekannt

                           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