Why are we getting additional characters ("IM") since we have selected environment as IMS?

Document ID : KB000014612
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

Configure PGMNAMES macro

 

Question:

Why am I Getting additional characters  "IM" since we have selected environment as IMS?

Environment:
Telon mainframe or Telon Workstation.
Answer:

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