Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
open the file-aid copybook with different 01 level items

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
maki_psg

New User


Joined: 28 Jan 2010
Posts: 47
Location: India

PostPosted: Tue Mar 12, 2013 12:36 pm    Post subject: open the file-aid copybook with different 01 level items
Reply with quote

Hi,

I have a file-aid copybook with multiple 01 items (for e.g. each 01 item for header, detail and trailer record type). Sample copybook is show below.

Code:


 01  WS-HEADER-REC.                                 
     05 H-RECORD-CDE                      PIC X(02).
     05 H-FILE-DATE                       PIC X(10).
     05 FILLER                            PIC X(88)
 01  WS-DETAIL-REC.                                 
     05 D-RECORD-CDE                      PIC X(02).
     05 D-XXX                             PIC 9(16).
     05 D-YYY                             PIC X(40).
     05 FILLER                            PIC X(42).
 01  WS-TRAILER-REC.                               
     05 T-RECORD-CDE                      PIC X(02).
     05 T-RECORD-CNT                      PIC 9(09).
     05 FILLER                            PIC X(89).



If I try to open the file using the file-aid, it opens with the first 01 level item (WS-HEADER-REC). I had used a command in the past to switch to any 01 level item in the copybook. However, I had forgot the command now. Please share the command to toggle betweem multiple 01 items.

Thanks.

Could anyone help me to
Back to top
View user's profile Send private message

Anuj Dhawan

Senior Member


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

PostPosted: Tue Mar 12, 2013 8:02 pm    Post subject:
Reply with quote

I don't have File-Aid at this current shop but as far as I can recall, possibly you needed XREF. Possibly search the File-Aid manuals on this word and you might just get it.
Back to top
View user's profile Send private message
maki_psg

New User


Joined: 28 Jan 2010
Posts: 47
Location: India

PostPosted: Wed Mar 13, 2013 10:44 am    Post subject:
Reply with quote

Anuj Dhawan wrote:
I don't have File-Aid at this current shop but as far as I can recall, possibly you needed XREF. Possibly search the File-Aid manuals on this word and you might just get it.


Thanks, Anuj.

We can use XREF and view the file on a specific layout.

I found the command to view the file on different 01 level's without using XREF. If we type the command - 'USE' in VFMT/FMT mode, we can choose the required layout from 'List of AVailable Record Layouts' screen.

Code:


File-AID ---- LIST OF AVAILABLE RECORD LAYOUTS -------------    REQUEST CANCELLED
COMMAND ===>                                                        SCROLL ===>    CSR 
            Member                                                             
  S    Nbr  name       01-level Name                  Status                   
 ---   --- --------  ------------------------------   ------------------------
                  1 TESTCPY1  WS-HEADER-REC                    CURRENT MAP             
                  2 TESTCPY1  WS-DETAIL-REC                                             
                  3 TESTCPY1  WS-TRAILER-REC                                           

Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


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

PostPosted: Wed Mar 13, 2013 12:59 pm    Post subject:
Reply with quote

Glad, that you got what serves the purpose and thanks for posting what worked for you... icon_smile.gif
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 VSAM Open During Copy-Excessive EXCP ... David Beckham JCL & VSAM 1 Sat Jun 27, 2020 5:23 pm
No new posts Want to check if trailer count is 0 a... rohanthengal JCL & VSAM 10 Fri Jun 26, 2020 10:47 am
No new posts File transfer to remote system using ... kalyan.lc5 TSO/ISPF 2 Wed Jun 24, 2020 1:24 pm
No new posts Seeking Resolution for SQKCODE -991 o... tgwacker50 DB2 2 Mon Jun 22, 2020 8:25 pm
No new posts Need to open a DSN using REXX & e... Y Marwaha CLIST & REXX 10 Fri Jun 05, 2020 7:30 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us