% IGGMEND:                                                             03250037
           MACRO ;                                                      06000000
           DCL IGGGVCCT CHAR EXT ;  /* PROCESSING CONTROL VARIABLE   */ 09000037
           DCL (BLANKS,ASTERICS) CHAR;  /* COMMENT VARIABLES @Y30SSDW*/ 09050037
           BLANKS = REPEAT(' ',65); /* PADDING - 66 BLANKS   @Y30SSDW*/ 09100037
           ASTERICS = REPEAT('*',65); /* A ROW OF ASTERISKS  @Y30SSDW*/ 09150037
           ANS ('CALL EXIT;') SKIP COL(12);                             12000037
           ANS ('/* RETURN TO CALLER         */') COL(37);/* @Y30SSDW*/ 15000037
           IF IGGGVCCT = '3' THEN       /*ANY INNER PROCS           */  18000000
             DO;                        /* YES-CLOSE LAST INNER PROC*/  21000000
               ANS ('END ;') SKIP COL(12);                              24000000
               ANS ('/* END OF INNER PROCEDURE   */') COL(37);          27000037
             END;                                                       30000000
           ANS ('@EJECT ASSEMBLE;') SKIP COL(2);           /*@ZA29164*/ 33000037
           ANS (COMMENT(ASTERICS)) COL(2);                /* @Y30SSDW*/ 36050037
           ANS (COMMENT(BLANKS)) COL(2);                  /* @Y30SSDW*/ 36100037
           ANS ('/') COL(2);                              /* @Y30SSDW*/ 36150037
           ANS ('*') COL(3);                              /* @Y30SSDW*/ 36200037
           ANS ('RETURN-TO-CALLER  PROCEDURE-EXITING  SUBFUNCTION')     36250037
               COL(13);                                   /* @Y30SSDW*/ 36260037
           ANS ('*') COL(70);                             /* @Y30SSDW*/ 36300037
           ANS ('/') COL(71);                             /* @Y30SSDW*/ 36350037
           ANS (COMMENT(BLANKS)) COL(2);                  /* @Y30SSDW*/ 36400037
           ANS (COMMENT(ASTERICS)) COL(2);                /* @Y30SSDW*/ 36450037
           ANS ('EXIT:     PROC OPTIONS(NOSAVEAREA,NOSAVE);')           39000000
              SKIP COL(2);                                              42000000
           ANS ('/* SPECIFY PROCEDURE OPTIONS     */')                  42050037
               COL(37);                                   /* @Y30SSDW*/ 42100037
           ANS ('GEN(LM 12,14,0(13));') SKIP COL(12);                   45000000
           ANS ('/* RESTORE REGISTERS OF CALLER */')                    48000037
                COL(37);                                  /* @Y30SSDW*/ 48010037
           ANS ('GEN(MVI 12(13),255);') SKIP COL(12);       /* Y02020*/ 48050002
           ANS ('/* MARK END OF PDL          */') COL(37);  /* Y02020*/ 48100037
           ANS ('GEN(BR 14);') SKIP COL(12);                            51000000
           ANS ('/* RETURN TO CALLER         */') COL(37);              54000037
           ANS ('PATCH:    GEN(DC (12+((*+139-@MAINENT)/140))A(0));')   57000000
             SKIP COL(2);                                               60000000
           ANS ('/* PATCH AREA               */') COL(41);              63000037
           ANS ('END ;') SKIP COL(12);                                  66000000
           ANS ('/* END OF EXIT PROCEDURE   */') COL(37); /* @Y30SSDW*/ 69000037
           ANS ('END ;') SKIP COL(12);  /*END OF OUTER PROCEDURE    */  72000037
 % END ;                                                                75000000