MACRO                                                          00001000
&NM      STRINIT &XXX,&TYPCALL=SVC                                      00002000
         AIF   ('&TYPCALL' EQ 'SVC').SVC                                00003000
         AIF   ('&TYPCALL' EQ 'BALR').BALR                              00004000
         MNOTE 8,'''TYPCALL'' NOT ''SVC'' OR ''BALR'''                  00005000
         MEXIT                                                          00006000
.SVC     ANOP                                                           00007000
&NM      SVC   203                                                      00008000
         DC    H'7'                    STORAGE INITIALIZATION           00009000
         MEXIT                                                          00010000
.BALR    ANOP                                                           00011000
&NM      L     15,=V(DMSSTGSB)    STORAGE INIT. ROUTINE                 00012100
         BALR  14,15                                                    00013000
         MEND                                                           00014000