View previous topic :: View next topic
|
Author |
Message |
Amit Manas Dubey Currently Banned New User
Joined: 15 Dec 2006 Posts: 22 Location: Mumbai
|
|
|
|
Hi All,
Is there a way I can download the layout of a file as in File Aid 8 option (View Interpreted record layout) to a .txt file ?
This is what I need.
Code: |
File-AID ---------------------- VIEW LAYOUT ------------- Row 1 to 17 of 2,180
COMMAND ===> SCROLL ===> CSR
Layout: PGBVPBA.CMS.V817.SRCLIB(AMBSRL)
FIELD
--------- FIELD LEVEL/NAME ---------- -PICTURE- -NUMBER START END LENGTH
:AMBS:-RECORD 1 6500 6500
3 :AMBS:-KEY GROUP 1 1 22 22
5 :AMBS:-ORG-X GROUP 2 1 3 3
7 :AMBS:-ORG 999 3 1 3 3
5 :AMBS:-ACCT X(19) 4 4 22 19
3 :AMBS:-LOGO 999 5 23 25 3
3 :AMBS:-ADD-STATUS 99 6 26 27 2
3 :AMBS:-SHORT-NAME X(20) 7 28 47 20
3 :AMBS:-CUST-NBR X(19) 8 48 66 19
3 :AMBS:-ALT-CUST-NBR-FLAG X 9 67 67 1
3 :AMBS:-ALT-CUST-NBR X(19) 10 68 86 19
3 :AMBS:-USER-ACCT-NBR X(19) 11 87 105 19
3 :AMBS:-STATE-OF-RESID XXX 12 106 108 3
3 :AMBS:-STATE-OF-ISSUE XXX 13 109 111 3
3 :AMBS:-XFR-ACCT-KEY GROUP 14 112 136 25
5 :AMBS:-XFR-ORG 999 15 112 114 3
5 :AMBS:-XFR-LOGO 999 16 115 117 3
F1=HELP F2=SPLIT F3=END F4=RETURN F5=RFIND F6=RCHANGE
|
Pls advise.
Best regards,
Amit. |
|
Back to top |
|
|
Craq Giegerich
Senior Member
Joined: 19 May 2007 Posts: 1512 Location: Virginia, USA
|
|
|
|
Cut & Paste |
|
Back to top |
|
|
Amit Manas Dubey Currently Banned New User
Joined: 15 Dec 2006 Posts: 22 Location: Mumbai
|
|
|
|
Hi Craq,
There are multiple copybooks for which I need this, and they are not so small in length. So dont think Cut & Paste is gonna work.
Thanks,
Amit. |
|
Back to top |
|
|
Anuj Dhawan
Superior Member
Joined: 22 Apr 2006 Posts: 6250 Location: Mumbai, India
|
|
|
|
Hi,
Go to PRINT option in File -Aid (at my shop it's 5th option in File-Aid menu, F;FA;5)
Then select option 4, follow the instruction there on screen, you would get a system generated JCL such as
Code: |
//JS10 EXEC PGM=FILEAID,REGION=6M
//STEPLIB DD DISP=SHR,DSN=SYS1.NSMP.LINKLIB
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=Anuj.COPYLIB,
// DISP=SHR
//SYSIN DD *
$$DD01 RLPRINT MEMBER=(XXJETDCL)
/*
// |
DD name
Code: |
//SYSLIST DD SYSOUT=* |
would contain the formatted layout, get the SYSLIST into a DSN using
Code: |
//SYSLIST DD DSN=formatted.layout |
download that DSN to PC, use font of type 'Lucida console' & you are done. |
|
Back to top |
|
|
|