Golgappa.net | Golgappa.org | BagIndia.net | BodyIndia.Com | CabIndia.net | CarsBikes.net | CarsBikes.org | CashIndia.net | ConsumerIndia.net | CookingIndia.net | DataIndia.net | DealIndia.net | EmailIndia.net | FirstTablet.com | FirstTourist.com | ForsaleIndia.net | IndiaBody.Com | IndiaCab.net | IndiaCash.net | IndiaModel.net | KidForum.net | OfficeIndia.net | PaysIndia.com | RestaurantIndia.net | RestaurantsIndia.net | SaleForum.net | SellForum.net | SoldIndia.com | StarIndia.net | TomatoCab.com | TomatoCabs.com | TownIndia.com
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) _______ _________ __________


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


Please Help Members By Posting Answers For Below Questions

What is task control?

1142


Explain how do you terminate an already issued delay command?

996


What is the syncpoint command?

1196


Explain the function of the load command?

1114


how do you intitiate another transaction?

1160


which cics command must be issued by the application program in order to gain access to the common work area (cwa)?

1130


What is the procedure to read a statement from tsq?

1078


What is the meaning of the deq command?

1139


What do you mean by CEMT?

1236


Explain the use of DCT ?

1063


Highlight the difference between a symbolic map and physical map?

1117


hi,what is the module? how many modules in mainframe based banking projects

2977


What is a cics task?

1052


Define exec cics retrieve?

1168


Explain the maps in cics?

1167