*      INCLUDES  ZTR 00626                                              00050002
* /* START OF SPECIFICATIONS ****                                       00100002
*                                                                       00150002
*01*  MODULE-NAME = DVT                                                 00200002
*                                                                       00250002
*01*  DESCRIPTIVE-NAME = USER MACRO TO GENERATE SKELETEL DVT NAME       00300002
*                                                                       00350002
*01*  COPYRIGHT = XXXX-XXX COPYRIGHT IBM CORP 1973                      00400002
*                                                                       00450002
*01*  STATUS = RELEASE 1                                                00500002
*                                                                       00550002
*01*  FUNCTION = INVOKED BY USER IN FOLLOWING MANNER                    00600002
*&LABEL  DVT                                                            00650002
*   MACRO GENERATES FOLLOWING ASSEMBLER CODE                            00700002
*        DS    0H                                                       00750002
*LABEL   DC    CL8'LABEL'                                               00800002
*        XL4'00',CL4'RDVT',XL8'00'                                      00850002
*                                                                       00900002
*01*  NOTES = &LABEL IS SKELETEL DVT NAME                               00950002
*                                                                       01000002
*            FOLLOWING IS LIST OF MNOTES USED:                          01050002
*                                                                       01100002
*        MNOTE 8,'NO LABEL PRESENT ON DVT MACRO'                        01150002
*        MNOTE 8,'NO NAMED CSECT - USE NAMED CSECT OR STRTMODE MACRO'   01200002
*        MNOTE *,'USING &SYSECT AS MODE NAME'                           01250002
*        MNOTE *,'CONSECUTIVE DVT MACROS ISSUED - PRIOR OVERLAYED'      01300002
*                                                                       01350002
*02*    CHARACTER-CODE-DEPENDENCIES = NONE                              01400002
*                                                                       01450002
*02*    DEPENDENCIES = STRTMODE MACRO, FUNCT MACRO, SKELETEL DVT READ   01500002
*       MODULE (ISTOCCSD)                                               01550002
*                                                                       01600002
*02*    RESTRICTIONS = NONE                                             01650002
*                                                                       01700002
*02*    REGISTER-CONVENTIONS = NONE                                     01750002
*                                                                       01800002
*02*    PATCH-LABEL = NONE                                              01850002
*                                                                       01900002
*01*  MODULE-TYPE = MACRO                                               01950002
*                                                                       02000002
*02*    PROCESSOR = ASSEMBLER                                           02050002
*                                                                       02100002
*02*    MACRO-SIZE = 26 STATEMENTS                                      02150002
*                                                                       02200002
*02*    ATTRIBUTES = LIST                                               02250002
*                                                                       02300002
*01*  ENTRY-POINT = NA                                                  02350002
*                                                                       02400002
*01*  EXIT-NORMAL = NA                                                  02450002
*                                                                       02500002
*01*  EXIT-ERROR = NA                                                   02550002
*                                                                       02600002
*01*  EXTERNAL-REFERENCES = NONE                                        02650002
*                                                                       02700002
*01*  TABLES = NONE                                                     02750002
*                                                                       02800002
*01*  INNER-MACROS = NONE                                               02850002
*                                                                       02900002
*01*  SYSTEM-MACROS = NONE                                              02950002
*                                                                       03000002
*01*  CHANGE-ACTIVITY = DCR  1K0266                                     03050002
*                                                                       03100002
**** END OF SPECIFICATIONS ***/                                         03150002
         MACRO                                                          03200002
&LABEL   DVT                                                            03250002
         GBLA  &CNT                    FUNCTION COUNTER                 03300002
         GBLC  &A                      SYSECT SAVE                      03350002
         GBLB  &B,&C,&M                DVT FUNCT AND MODE               03400002
         AIF   ('&LABEL' NE '').A1                                      03450002
         MNOTE 8,'NO LABEL PRESENT ON DVT MACRO'                        03500002
         MEXIT                                                          03550002
.A1      AIF   (&M EQ 1).A2                                             03600002
         AIF   ('&SYSECT' NE '').A15                                    03650002
         MNOTE 8,'NO NAMED CSECT - USE NAMED CSECT OR STRTMODE MACRO'   03700002
         MEXIT                                                          03750002
.A15     MNOTE *,'USING &SYSECT AS MODE NAME'                           03800002
.A2      AIF   (&B EQ 0 OR &C EQ 1).A3                                  03850002
         MNOTE *,'CONSECUTIVE DVT MACROS ISSUED - PRIOR OVERLAYED'      03900002
         ORG   *-24                                                     03950002
&CNT     SETA  &CNT-1                                                   04000002
.A3      ANOP                                                           04050002
&CNT     SETA  &CNT+1                                                   04100002
         DS    0F                                                       04150002
&LABEL   DC    CL8'&LABEL'                                              04200002
         DC    XL4'00',CL4'RDVT'                                        04250002
         DC    XL8'00'                                                  04300002
         DC    F'0'                    FOR DCR 3440.1                   04310002
&B       SETB  1                       SET DVT ON                       04350002
&C       SETB  0                       SET FUNCT OFF                    04400002
         MEND                                                           04450002