* /* START OF SPECIFICATIONS **** 00050002 * 00100002 *01* MODULE-NAME = STRTMODE 00150002 * 00200002 *01* DESCRIPTIVE-NAME = USER MACRO TO GENERATE MODE NAME 00250002 * 00300002 *01* COPYRIGHT = XXXX-XXX COPYRIGHT IBM CORP 1973 00350002 * 00400002 *01* STATUS = RELEASE 1 00450002 * 00500002 *01* FUNCTION = GENERATES NAMED CSECT FOR DVT MODE NAME 00550002 * 00600002 * MACRO USAGE AS FOLLOWS 00650002 *&LABEL STRTMODE 00700002 * &LABEL IS DESIRED MODE NAME FOR SKELETEL DVT'S 00750002 *01* NOTES = MACRO NOT REQUIRED IF USER SUPPLIES NAMED CSECT FOR 00800002 * ASSEMBLY 00850002 * 00900002 * GENERATES FOLLOWING CODE 00950002 *&LABEL CSECT 01000002 * 01050002 * FOLLOWING IS MNOTE USED: 01100002 * MNOTE *,'NO LABEL, USING &D AS MODE NAME' 01150002 * 01200002 *02* CHARACTER-CODE-DEPENDENCIES = NONE 01250002 * 01300002 *02* DEPENDENCIES = DVT AND FUNCT MACROS 01350002 * 01400002 *02* RESTRICTIONS = NONE 01450002 * 01500002 *02* REGISTER-CONVENTIONS = NONE 01550002 * 01600002 *02* PATCH-LABEL = NONE 01650002 * 01700002 *01* MODULE-TYPE = MACRO 01750002 * 01800002 *02* PROCESSOR = ASSEMBLER 01850002 * 01900002 *02* MACRO-SIZE = 20 STATEMENTS 01950002 * 02000002 *02* ATTRIBUTES = LIST 02050002 * 02100002 *01* ENTRY-POINT = NA 02150002 * 02200002 *01* EXIT-NORMAL = NA 02250002 * 02300002 *01* EXIT-ERROR = NA 02350002 * 02400002 *01* EXTERNAL-REFERENCES = NONE 02450002 * 02500002 *02* ROUTINES = NONE 02550002 * 02600002 *02* DATA-SETS = NONE 02650002 * 02700002 *02* DATA-AREA = NONE 02750002 * 02800002 *02* CONTROL-BLOCKS-SYSTEM = NONE 02850002 * 02900002 *02* CONTROL-BLOCKS-ATCAM = NONE 02950002 * 03000002 *01* TABLES = NONE 03050002 * 03100002 *01* INNER-MACROS = NONE 03150002 * 03200002 *01* SYSTEM-MACROS = NONE 03250002 * 03300002 *01* CHANGE-ACTIVITY = DCR 1K0266 03350002 * 03400002 **** END OF SPECIFICATIONS ***/ 03450002 MACRO 03500002 &LABEL STRTMODE 03550002 GBLA &CNT FUNCTION COUNTER 03600002 GBLC &A CURRENT CSECT NAME 03650002 GBLB &B,&C,&M DVT FUNCT AND MODE 03700002 LCLC &D MODE NAME 03750002 &CNT SETA 0 SET COUNTER = 0 03850002 &B SETB 0 SET DVT OFF 03900002 &C SETB 0 SET FUNCT OFF 03950002 &M SETB 1 SET MODE ON 04000002 &A SETC '&SYSECT' SAVE CURRENT CSECT NAME 04050002 AIF ('&LABEL' NE ' ').A1 04060002 &D SETC 'AAAA&SYSNDX' 04100002 MNOTE *,'NO LABEL, USING &D AS MODE NAME' 04150002 AGO .A2 04200002 .A1 ANOP 04250002 &D SETC '&LABEL' 04300002 .A2 ANOP 04350002 &D CSECT 04400002 MEND 04450002