how to code the following map using occours clause?
all the three fields have different length.
ename eno addr
1) _______ _________ __________
2) _______ _________ __________
3) _______ _________ __________
4) _______ _________ __________
5) _______ _________ __________
6) _______ _________ __________
Answer / sandeep
code BMS macro with all the fields I mean with all the
occurances. for example
give the first occurence field name as ename1, eno1,addrr1
and second line field as
ename2, eno2,addrr2 and respectively for all the six
occurences. Once you generate a map the symbolic map
consists of all the fields it looks like below (coded for
output field i.e Field+O only)
03 filler picture x(2)
03 ename1a pic x
03 ename1o pic x(10)
03 filler pic x(2)
03 eno1a pic x
03 enoO pic x(10)
03 filler pic x(2)
03 addr1a pic x
03 addrO pic x(10)
03 filler picture x(2)
03 ename2a pic x
03 ename2o pic x(10)
.
.
etc
You need to modify above symbolic map as shown below
02 employee OCCURS 6.
03 enamea pic x
03 enameo pic x(10)
03 filler pic x(2)
03 enoa pic x
03 enoO pic x(10)
03 filler pic x(2)
03 addra pic x
03 addrO pic x(10)
You can also give Occurs clause in BMS macro
Ex:
TELNO DFHMDF POS=(7,1),LENGTH=9,ATTRB=NORM,OCCURS=40
The description of these fields in the symbolic map looks
like this in COBOL:
02 TELNOG OCCURS 40.
03 FILLER PICTURE X(2).
03 TELNOA PICTURE X.
03 TELNOO PIC X(9).
Is This Answer Correct ? | 13 Yes | 4 No |
Explain the difference between and exec cics xctl and exec cics start command?
What CICS command do you need to obtain the user logon-id?
What is interval control and what are some of the CICS commands associated with it?
Can you explain cics translator?
What does a cics translator do?
Mention the option used in the CICS READ command to gain accessibility directly to the file I/O area.
what are the six different type of argument values in cobol that can be placed in various options of a cics command?
Explain re-entrancy as applies to CICS.
when you compile a cics program, the (pre) compiler puts an extra chunk of code. Where does it get included and that is it called? What is its length?
Can you issue SQL COMMIT from a CICS program?
Explain the cics command that is used for reading a record from the tdq?
Can a program change protected field ?