IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Expand copybook


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Wed Mar 27, 2013 8:29 pm
Reply with quote

Hi,

I have an requirement in which I have to expand the copybook layout with the starting position and the length of each field. Similart to option 8 in fileaid. Is it possible to save the view record layout for the copybook I view through fileaid.

SAMPLE layout:

--------- FIELD LEVEL/NAME ---------- -PICTURE- -NUMBER START END
01 TMP-REC 1 23
05 TMP-NO 999 1 1 3
05 TMP-NAME X(10) 2 4 13
05 TMP-ADDR X(10) 3 14 23
******************************* BOTTOM OF DATA ************************
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2454
Location: Hampshire, UK

PostPosted: Wed Mar 27, 2013 9:52 pm
Reply with quote

After 5 years here you do not know how to use the code tags? Or could you just not be bothered? If the latter then I cannot be bothered with a suggested solution.
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Wed Mar 27, 2013 10:16 pm
Reply with quote

Hi Nic,

Not sure what a code tag is. Are you refering to formating the layout i pasted above.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL

PostPosted: Wed Mar 27, 2013 10:23 pm
Reply with quote

On both the Quick Reply and Post Reply screens there is a "Code" button; clicking it inserts a Code tag at the cursor. Both screens also have "Close Tags". Text in Code tags looks like this:
Code:
Note that a fixed font is used and that
multiple spaces  used    for        alignment
are preserved.
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Wed Mar 27, 2013 10:38 pm
Reply with quote

Thanks Akatsukami.
For my requirement i need the copy book to be expanded like this. Similar to vat we view in File aid option 8 (
view record layout ). PLease let me know if it is possible to save the view the from file aid. or is there anyother approach for this.

Code:

FIELD LEVEL/NAME PICTURE  NUMBER START END
01 TMP-REC                          1   23
 05 TMP-NO           999       1    1    3
 05 TMP-NAME        X(10)      2    4   13
 05 TMP-ADDR        X(10)      3   14   23
Back to top
View user's profile Send private message
Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Wed Mar 27, 2013 10:50 pm
Reply with quote

passion_sujesh wrote:
Thanks Akatsukami.
For my requirement i need the copy book to be expanded like this. Similar to vat we view in File aid option 8 (
view record layout ). PLease let me know if it is possible to save the view the from file aid. or is there anyother approach for this.

Code:

FIELD LEVEL/NAME PICTURE  NUMBER START END
01 TMP-REC                          1   23
 05 TMP-NO           999       1    1    3
 05 TMP-NAME        X(10)      2    4   13
 05 TMP-ADDR        X(10)      3   14   23


Is there some reason that copy & paste won't work?
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL

PostPosted: Wed Mar 27, 2013 11:21 pm
Reply with quote

passion_sujesh wrote:
Thanks Akatsukami.
For my requirement i need the copy book to be expanded like this. Similar to vat we view in File aid option 8 (
view record layout ). PLease let me know if it is possible to save the view the from file aid. or is there anyother approach for this.

Code:

FIELD LEVEL/NAME PICTURE  NUMBER START END
01 TMP-REC                          1   23
 05 TMP-NO           999       1    1    3
 05 TMP-NAME        X(10)      2    4   13
 05 TMP-ADDR        X(10)      3   14   23

Assuming that you cannot copy-and-paste as suggested by Mr. Giegerich, have you considered compiling the copybook in a skeleton program and then parsing the DMAP?
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Wed Mar 27, 2013 11:29 pm
Reply with quote

Hi Akatsukami,
I will try this approach and get back. I was just wondering is there any way i can view the source code for the option 8 in file aid. I guess it is coded in REXX.

I am also trying if i can do the same using REXX.
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Wed Mar 27, 2013 11:35 pm
Reply with quote

Hi Akatsukami,
Can you let me know how i can parse the DMAP.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL

PostPosted: Thu Mar 28, 2013 12:16 am
Reply with quote

A portion of a DMAP:
Code:
PP 5655-S71 IBM ENTERPRISE COBOL FOR Z/OS  4.2.0 0410          M3QEN     DATE 03/27/2013  TIME 12:45:14   PAGE    44
SOURCE   HIERARCHY AND                                    BASE       HEX-DISPLACEMENT  ASMBLR DATA                    DATA DEF
LINEID   DATA NAME                                        LOCATOR    BLK   STRUCTURE   DEFINITION      DATA TYPE      ATTRIBUTES
   659       3  EXPANSION . . . . . . . . . . . . . . . . BLL=00001  563   0 000 563   DS 50C          DISPLAY
   661   1  COMMON-PARMS. . . . . . . . . . . . . . . . . BLL=00002  000               DS 0CL450       GROUP   
   662     2  ZARIY . . . . . . . . . . . . . . . . . . . BLL=00002  000   0 000       DS 0CL450       GROUP   
   675       3  FRMT. . . . . . . . . . . . . . . . . . . BLL=00002  000   0 000 000   DS 5C           DISPLAY   
   676       3  VER . . . . . . . . . . . . . . . . . . . BLL=00002  005   0 000 005   DS 3C           DISPLAY
   677       3  LNGTH . . . . . . . . . . . . . . . . . . BLL=00002  008   0 000 008   DS 5C           DISP-NUM
   679       3  LOG-EVENT-CORR-ID . . . . . . . . . . . . BLL=00002  00D   0 000 00D   DS 13C          DISPLAY
   680       3  LOG-SEQ-NUM . . . . . . . . . . . . . . . BLL=00002  01A   0 000 01A   DS 5C           DISP-NUM
   681       3  DIAGNOSTIC-MODE . . . . . . . . . . . . . BLL=00002  01F   0 000 01F   DS 3C           DISP-NUM
   682       3  EXPANSION1. . . . . . . . . . . . . . . . BLL=00002  022   0 000 022   DS 30C          DISPLAY
   684       3  USER-ID . . . . . . . . . . . . . . . . . BLL=00002  040   0 000 040   DS 60C          DISPLAY
   685       3  USER-ID-TYPE. . . . . . . . . . . . . . . BLL=00002  07C   0 000 07C   DS 10C          DISPLAY
   686       3  CALLING-AREA. . . . . . . . . . . . . . . BLL=00002  086   0 000 086   DS 60C          DISPLAY
   687       3  CALLING-APP . . . . . . . . . . . . . . . BLL=00002  0C2   0 000 0C2   DS 60C          DISPLAY
   688       3  CALLER. . . . . . . . . . . . . . . . . . BLL=00002  0FE   0 000 0FE   DS 60C          DISPLAY
   689       3  APP-VER . . . . . . . . . . . . . . . . . BLL=00002  13A   0 000 13A   DS 60C          DISPLAY
   691       3  EXPANSION2. . . . . . . . . . . . . . . . BLL=00002  176   0 000 176   DS 76C          DISPLAY

Search for the 01 level you are interested in. Get the item name from the DATA NAME column; the starting position is the STRUCTURE (converted to decimal) plus 1. The length can be gotten from the ASMBLR DATA DEFINITION column (one displacement to another will not be accurate in the case of synchronized structures). The type (denoting picture and usage) is in the DATE TYPE column: DISPLAY = X(n); DISP-NUM = 9(n); BINARY = USAGE COMP; PACKED-DEC = COMP-3 (in this case, remember that n bytes hold 2n-1 digits.
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Thu Mar 28, 2013 2:27 am
Reply with quote

Thanks Akatsukami.
I shall use approach suggested by you and let you know tomorrow if it works file.
Back to top
View user's profile Send private message
passion_sujesh

New User


Joined: 14 Mar 2008
Posts: 74
Location: India,Chennai

PostPosted: Tue Apr 16, 2013 12:00 am
Reply with quote

Thanks Akatsukami. It worked, i am able to expand the copy book.
I had to code a REXX program using the idea you suggested.

Thanks again.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1787
Location: Bloomington, IL

PostPosted: Tue Apr 16, 2013 12:05 am
Reply with quote

You're welcome; I'm glad to that this worked for you icon_smile.gif
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8700
Location: Dubuque, Iowa, USA

PostPosted: Tue Apr 16, 2013 12:25 am
Reply with quote

Quote:
Similart to option 8 in fileaid. Is it possible to save the view record layout for the copybook I view through fileaid.
why not use the RLPRINT function of batch File Aid which was designed to do what you wanted in the first place?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Replacing FILLER with FILLER<SeqNu... DFSORT/ICETOOL 2
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts Trying to change copybook in online c... CICS 4
No new posts Help to Filter File Manager Copybook ... DFSORT/ICETOOL 14
No new posts Expand ISPF field up to a limit - is ... TSO/ISPF 9
Search our Forums:

Back to Top