Why are we getting additional characters ("IM") since we have selected environment as IMS?
Article ID: 14612
Updated On:
Products
Issue/Introduction
Configure PGMNAMES macro
Why am I Getting additional characters "IM" since we have selected environment as IMS?
Environment
Resolution
This is happening because of the defaults in the PGMNAMES macro.
You can change the following;
&PGMDHDR SETC '&SHEADER.IM' PROGRAM HEADER IMS DRIVER
&PGMIHDR SETC '&SHEADER.IM' PROGRAM HEADER IMS DYNAMIC
to
&PGMDHDR SETC '&SHEADER' PROGRAM HEADER IMS DRIVER
&PGMIHDR SETC '&SHEADER' PROGRAM HEADER IMS DYNAMIC
Additional Information
This is happening because of the defaults in the PGMNAMES macro.
.* THIS MACRO AS DELIVERED USES A 2-CHARACTER HEADER AND
.* 4-CHARACTER SCREEN ID, BUT ANY COMBINATION ADDING UP TO NO
.* MORE THAN 8 CHARACTERS MAY BE USED. (NOTE: THE MAXIMUM
.* TOTAL ALLOWED FOR HEADER AND ID IS 6 CHARACTERS.)
.* COBOL
.* PROGRAM/CONTROL BLOCK GENERATED NAME GENERATED NAME
.* BATCH PROGRAM HH.BP.NNNN HH.B.NNNN
.* TSO PROGRAM HH.TM.NNNN HH.T.NNNN
.* IMS DRIVER HH.IM.NNNN HH.I.NNNN
.* IMS PROGRAM - DYNAMIC HH.IM.NNNN HH.I.NNNN
.* IMS PROGRAM - STATIC HH.SM.NNNN HH.S.NNNN
.**********************************************************************
.* STEP 3A - SET HEADER NAME FOR COBOL PROGRAMS
.* DETERMINE WHAT (IF ANY) CHARACTERS YOU WOULD LIKE TO BE
.* PLACED BETWEEN THE HEADER AND ID OF YOUR PROGRAMS, BY TYPE.
.**********************************************************************
&PGMBHDR SETC '&SHEADER.BP' PROGRAM HEADER BATCH PROGRAM
&PGMTHDR SETC '&SHEADER.TM' PROGRAM HEADER TSO TEST PROGRAM
&PGMDHDR SETC '&SHEADER.IM' PROGRAM HEADER IMS DRIVER
&PGMIHDR SETC '&SHEADER.IM' PROGRAM HEADER IMS DYNAMIC
Feedback
