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) _______ _________ __________
- 1 Answers
- 12274 Views
- L&T, TCS, Wipro, I also Faced
- E-Mail Answers
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 |
How do you terminate an already issued DELAY command?
How can you start a CICS transaction other than by keying the Transaction ID at the terminal?
What are the ways fot initiating a transaction?
Specify the requirements for automatic task initiation?
Which command is used to release a record on which exclusive control is gained?
What is the component?what are the different components there using cobol and cics
Why is GETMAIN command needed?? Will program not work if we do not give GETMAIN?
What is a mapset?
What is the pic clause for the hhmmss type of data fields?
What CICS command would you use to read a VSAM KSDS sequentially in ascending order?
What is the meaning of BMS length of field = 0?
There is map and length of field need to modified, let take cust id=2 is previous of 2 byte and now it has to be 5 byte ? how to modified the cics code ?what are change need to done ? where where u will do change ?
COBOL 
