Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Download the layout of a file as in File Aid 8 option

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
Amit Manas Dubey
Currently Banned

New User


Joined: 15 Dec 2006
Posts: 22
Location: Mumbai

PostPosted: Mon Apr 28, 2008 9:06 pm    Post subject: Download the layout of a file as in File Aid 8 option
Reply with quote

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
View user's profile Send private message

Craq Giegerich

Senior Member


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

PostPosted: Mon Apr 28, 2008 9:53 pm    Post subject:
Reply with quote

Cut & Paste
Back to top
View user's profile Send private message
Amit Manas Dubey
Currently Banned

New User


Joined: 15 Dec 2006
Posts: 22
Location: Mumbai

PostPosted: Mon Apr 28, 2008 10:01 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Mon Apr 28, 2008 10:27 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts File Aid to File Manager conversion murali3955 IBM Tools 4 Thu Nov 24, 2016 3:41 pm
No new posts How to convert the VBM file to VB or... Sulabh Agrawal JCL & VSAM 4 Fri Nov 18, 2016 1:04 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us