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
 

 

ISPF "COLS" command with RECFM=VB

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
David Sde

New User


Joined: 24 Apr 2011
Posts: 23
Location: USA

PostPosted: Wed Feb 12, 2014 8:29 pm    Post subject: ISPF "COLS" command with RECFM=VB
Reply with quote

Hi,

I know this is really an ISPF question, but I'm thinking that perhaps a DFSORT expert might have a solution.

When browsing (or viewing, or editing) a dataset of variable-length records, the COLS command shows the first data byte as being in column 1. However, as we know, DFSORT treats the first data byte in a variable-length record as starting in column 5. Is there any way to either a) show the RDW of each record so it appears starting in column 1, or b) tell the COLS command to treat the first column number as column 5?

It would be enormously helpful for debugging DFSORT applications if an input (or output) VB dataset could be viewed in ISPF with the "correct" column number (from DFSORT's perspective) above each byte.

If anyone has another solution or approach to this problem, I would love to know. Thank you!

David
Back to top
View user's profile Send private message

Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Wed Feb 12, 2014 11:58 pm    Post subject:
Reply with quote

David Sde,

With DFSORT We can build the VB dataset with RDW displayed in the first byte but then your LRECL would increase by 4 bytes. If you want it that way I can show you a way to do that.
Back to top
View user's profile Send private message
David Sde

New User


Joined: 24 Apr 2011
Posts: 23
Location: USA

PostPosted: Thu Feb 13, 2014 1:23 pm    Post subject:
Reply with quote

Kolusu,

Thank you very much for the reply. I think that changing the LRECL would add other issues, so I probably should look for another approach (I might just have to keep remembering to add 4 to the displayed column number!)

David
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Thu Feb 13, 2014 2:40 pm    Post subject: Reply to: ISPF "COLS" command with RECFM=VB
Reply with quote

Don't you have the same problem looking files used by COBOL (or whatever) programs?

No? Because you use something which shows the data using the record-layout?

Then look at the use of DFSORT Symbols. A rexx program is supplied to convert a COBOL layout to DFSORT symbols.

Then you don't need to know about positions and columns again/so much.

Then if you do, you can always look at the output on SYMNOUT and get them, but have them associated with a name.
Back to top
View user's profile Send private message
David Sde

New User


Joined: 24 Apr 2011
Posts: 23
Location: USA

PostPosted: Fri Feb 14, 2014 4:44 am    Post subject:
Reply with quote

Bill,

We have many DFSORT/ICETOOL applications, and every one of them uses symbols.

I had a bug in my most recent ICETOOL application. I had created a SYMNAMES dataset describing a preexisting record layout. My error was that I accidentally omitted a SKIP,8 statement (corresponding to a filler field). As a result, a subsequent JOINKEYS on that dataset yielded no output records. To find the problem, I looked at the DFSMSG dataset to see what actual column numbers were generated by DFSORT in the JOINKEYS statement. I opened the input dataset in ISPF =1, and issued a COLS command. When I realized that the data was not where DFSORT expected it to be, I found my bug. What was annoying was that the column numbers were off by 4 (from DFSORT's perspective) because of the RDW.

I believe that it would be handy if the COLS command had an option to show the column numbers in the VB dataset from DFSORT's perspective. That would have made my checking a little easier. Hence my original question.

I could have debugged the problem by looking at the SYMNOUT dataset, at which point I might have observed that the column numbers were off by 8, starting at the point where I missed the SKIP,8. But I didn't happen to take that approach.

David
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Fri Feb 14, 2014 5:13 am    Post subject: Reply to: ISPF "COLS" command with RECFM=VB
Reply with quote

You could always write a simple edit macro to insert a note line with a ruler
Back to top
View user's profile Send private message
David Sde

New User


Joined: 24 Apr 2011
Posts: 23
Location: USA

PostPosted: Fri Feb 14, 2014 5:25 am    Post subject:
Reply with quote

Enrico,

Yes... that's a great idea. Thank you!

David
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Amount field is getting corrupted whe... thesumitk SYNCSORT 5 Tue Oct 18, 2016 8:20 pm
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm
No new posts SDSF Command Avtrix CLIST & REXX 4 Fri Sep 30, 2016 11:13 am
No new posts How to find a CICS resource used in C... Arunkumar Chandrasekaran CICS 8 Thu Sep 29, 2016 1:45 pm


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