Hi,
Below is layout we were provided. I need some details on it. May be helpful for everyone here.
RecordDef('RecordLevel1', Ref=RecordLevel1 );
Field('PathRidCode','X(1)', Ref=PathRidCode );
Field('PathRidCode','X(1)', Ref=PathRidCode );
Field('TicketNo','X(13)', Ref=TicketNo );
Field('TicketNoFiller','X(2)');
Field('CouponNo','X(2)', Ref=CouponNo );
Field('PathEquivBBR','S99V999999999',options=BCH_SIGN_SEPARATE | BCH_SIGN_LEADING, Ref=PathEquivBBR);
EndDef;
.
.
.
RecordDef('GFP', Occurs=4, Ref=l_GFPSubLayout, OccursRefs=GFP );
l_GFPSubLayout.DefineLayout(Process);
EndDef;
RecordDef('ConnectionsString', Ref=ConnectionsString);
RecordDef('Connections', occurs=10, Ref=l_ConnectionsSubLayout, OccursRefs=Connections );
l_ConnectionsSubLayout.DefineLayout(Process);
EndDef;
RecordDef('FopArray', Ref=FopArray);
RecordDef('Fop', Occurs=14, Ref=l_FopSubLayout, OccursRefs=Fop );
l_FopSubLayout.DefineLayout(Process);
.
.
.
.
.
.
.
.
.
.
.
.
.
EndDef;
Q. What is this layout? Is this multi-record file layout? If anyone can shed some light on RecordDef() syntax details (like occurs clause etc) , that would be very useful.
How to import it? I tried every way in DS , but couldn't import it.
I have couple of more different types of layout , i would update here them later.
File layouts & their import methods
Moderators: chulett, rschirm, roy
File layouts & their import methods
Regards,
Akshay
Akshay
-
- Participant
- Posts: 54607
- Joined: Wed Oct 23, 2002 10:52 pm
- Location: Sydney, Australia
- Contact:
Yes, from what you've provided, there is more than one RecordDef.
It looks like someone has re-organized a COBOL copybook, though I'd be concerned about the duplicate appearance of PathRidCode.
It looks like someone has re-organized a COBOL copybook, though I'd be concerned about the duplicate appearance of PathRidCode.
IBM Software Services Group
Any contribution to this forum is my own opinion and does not necessarily reflect any position that IBM may hold.
Any contribution to this forum is my own opinion and does not necessarily reflect any position that IBM may hold.