Q: How do I export a complete Telon program and create a BMS map from the Telon source?

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

Creating BMS Mapping from Telon source. 

Question:

How do you create BMS mapping source code from a Telon program that resides in the Telon Design Facility?

Environment:
Telon CICS Environment
Answer:

1. Bring up the Telon Design Facility.

2. From the TDF Main Menu, select option 4.

TELON DESIGN FACILITY MAIN MENU ***** ******

3. From the Online program definition menu, type in your program, and be sure to

   use ENVIRON     CICS

ONLINE PROGRAM DEFINITION MENU ****** 

4. This will bring you to the Update screen definition.

TRCC2A.SD UPDATE SCREEN DEFINITION ** **

5. From this panel, put an X by ENV CICS. This will bring up the UPDATE CICS ENVIRONMENT

TRCC2A.SD UPDATE CICS ENVIRONMENT *** 

6. Put a Y by BMS, and the name you want to call the BMSMAP (I used MARILYN)

7. Then PF3 out to the Main Menu.

8. On the TDF MAIN MENU, type in a U at the FUNCTION

9. This will bring you to the Utilities Menu.

   Type in XR for the Function, key in a C for ENVIRONMENT, and also a Y for ENV FORMAT

   This Panel will export your Telon Screen Definition to the PDS that is allocated in your

   TDF clist. The low level qualified would be EXPRTPDS, mine is CSAP.REL51.EXPRTPDS 

10. You will get the message of;

UTILITIES MENU ********************** ************************ MEMBER REPLACED  

11. The member is Exported and replaced in your EXPRTPDS.

12. Next take your proc that will do the following (Target Environment CICS is needed);

000006 //*************   TELON GENERATE, COMPILE, AND LINK JOB              

000007 //*************       TARGET ENVIRONMENT: CICS    

At the bottom of the proc are the OPTIONS that can be generated.

//*************************************************

//*            0 -- ASM COMPILE LINK BMS PSB       

//*            1 -- ASM COMPILE LINK BMS           

//*            2 -- ASM COMPILE LINK PSB           

//*            3 -- ASM COMPILE LINK   (DEFAULT)   

//*            4 -- ASM COMPILE                    

//*            5 -- ASM BMS PSB                    

//*            6 -- ASM BMS                        

//*            7 -- ASM PSB                        

//*            8 -- ASM  

To generate BMS source you would want one of the options 0,1,5, or 6.

 

For simplicity I choose OPTION 6. Make the following changes to the proc.

//            OPTION=6,                           PERFORMANCE OPTIONS

//            BMSSRC='CSAP.CERMAK51.SOURCE',      BMS DEST SOURCE LIB 

//            BMSMEM='TESTBMS',                   BMS MEMBER NAME    

13. The output of this job generated the following steps;

JESMSGLG JES2                   HELD          1        35 X 

JESJCL       JES2                  HELD          1       762 X 

JESYSMSG JES2                   HELD          1       551 X 

SYSPRINT GEN                    HELD          1       297 X 

SYSPRINT BMSSRC              HELD          1          3 X 

SYSPRINT BMSSRCPR          HELD          1          4 X 

SYSUT2   BMSSRCPR           HELD          1        76 X 

************************ End of Data ******************

STEPNAME STEP   PGM=   CCODE

SCRATCH1    1 IEFBR14  0000 

IEBUP1         2 IEBUPDTE 0000 

CONTROL     3 ADPCCARD 0000 

GEN             4 ASMA90   0004   I just did the GEN step

IEBUPSRC    5 IEBUPDTE 0000 

SETOPT       6 ADPCSTRC 0006   Condition code of 6, because I choose OPTIONS=6.

RESOLVE     7 ADPACOPY FLUSH

ECP             8 DFHECP1$ FLUSH

ECPPRT        9 IEBGENER FLUSH

COB           10 IGYCRCTL FLUSH

STEPX         11 IEBGENER FLUSH

LKED           12 HEWL     FLUSH

PSBSRC      13 IEBGENER FLUSH

PSBSRCPR   14 IEBGENER FLUSH

BMSSRC      15 IEBGENER 0000     BMS SOURCE PDS

BMSSRCPR   16 IEBGENER 0000     BMS SOURCE MEMBER 

 

14. Here is the BMS source that Telon generated, ready to be assembled. Notice the name MARILYN that we used in the TDF.

 BROWSE    CSAP.CERMAK51.SOURCE(TESTBMS)            Line 000

 Command ===>                                               

********************************* Top of Data **************

         PRINT NOGEN                                        

MAPSET   DFHMSD TYPE=&SYSPARM,MODE=INOUT,TIOAPFX=YES,       

               CTRL=FREEKB,LANG=COBOL                       

MARILYN  DFHMDI SIZE=(24,80)                                

             DFHMDF  POS=(01,001),LENGTH=1,ATTRB=ASKIP          

DATE     DFHMDF  POS=(01,002),LENGTH=8,ATTRB=(ASKIP,NORM)   

             DFHMDF  POS=(01,019),LENGTH=9,ATTRB=(ASKIP,NORM),  

               INITIAL='T E L O N'                          

            DFHMDF  POS=(01,031),LENGTH=11,ATTRB=(ASKIP,NORM), 

               INITIAL='S A M P L E'                        

           DFHMDF  POS=(01,045),LENGTH=15,ATTRB=(ASKIP,NORM), 

               INITIAL='S O L U T I O N'                    

           DFHMDF  POS=(02,028),LENGTH=8,ATTRB=(ASKIP,NORM),  

               INITIAL='EMPLOYEE'                           

TITLE    DFHMDF  POS=(02,037),LENGTH=6,ATTRB=(ASKIP,NORM)   

 

 

Additional Information:

I have attached a complete summary for Telon and BMS mapping including Panel prints.

File Attachments:
TEC1462662.zip