Q: How do I export a complete Telon program and create a BMS map from the Telon source?
Article ID: 13658
Updated On:
Products
Issue/Introduction
Creating BMS Mapping from Telon source.
How do you create BMS mapping source code from a Telon program that resides in the Telon Design Facility?
Environment
Resolution
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.
Attachments
Feedback
