Interested to Buy Any Domain ? << Click Here >> for more details...
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
- 12795 Views
- L&T, TCS, Wipro, I also Faced
- E-Mail Answers
Answer Posted / 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 |
Post New Answer View All Answers
which cics service transaction is used to gain accessibility to cics control tables? Mention the one that has the highest priority.?
Explain the cics command that is used for reading a record from the tdq?
Why do we need integrated cics translator?
What is an mdt (modified data tag)?
Can QSAM files be accessed from CICS?
What is the abend command?
Explain how do you set the mdt option to on status, even if data is not entered?
Explain cebr transaction commands?
how a data in physical and symbolic map gets treated? Since the physical map is much concerned about the screen alignment and the field positions, how the values entered in the field which has PICIN or PICOUT clause in Physical map gets treated? Does that mean datas recieved or sent to the physical map should be constant? How does the data in Symbolic map gets converted with 5suffix namely F,L,A,I and O. For example EMPNO is treated as EMPNOI, EMPNOO, EMPNOA, EMPNOL and EMPNOF. how does this happen in symbolic map. Please provide your inputs on the above and kindly correct me if I am wrong.
Explain how and where is the twa size set?
what are the reserved words for cics?
Kindly specify the pic clause for the data type of length option field type of data fields?
What are the ways fot initiating a transaction?
Code the related portions of cics/cobol-i programs to gain addressability to twa area assigned to a particular task. Assme that the size of twa area is 300bytes. What are the advantages if cobol-ii is used in the place of cobol?
Can you explain cics transaction gateway?
