MVSFORUMS.com :: View topic - View RDW length of a record.

MVSFORUMS.com Forum Index

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Register

Log in to check your private messages

View RDW length of a record.

printer-friendly view

MVSFORUMS.com Forum Index -> Utilities

View previous topic :: View next topic

Author

Message

kmkarth
Beginner

Joined: 02 Dec 2002
Posts: 5
Topics: 3
Location: India

Posted: Tue Dec 03, 2002 11:48 am Post subject: View RDW length of a record.

Reply with quote

Assuming we want only records with '10' in positions 5-6 (after the RDW in positions 1-4).

Method 1:- Using File-Aid

Code:

//STEP02 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=INPUT.FILE,DISP=SHR
//SYSIN DD *
$$DD01 LIST RDW=2
/*

Method 2:- Using Sort

Code:

//STEP02 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=INPUT.FILE,DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1,4,1,2,BI,EDIT=(TTTTT))
/*

Method 3:- Using ICETOOL/SYNCTOOL

Code:

//STEP02 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=INPUT.TEST,DISP=(OLD,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
DISPLAY TITLE('RDW LENGTH REPORT') -
FROM(IN) LIST(OUT) BLANK -
HEADER('REC#') HEADER('DEC') HEADER('HEX') -
ON(NUM) ON(VLEN) ON(1,2,HEX)
/*

Thanks,
Karthik

Send private message

jay
Beginner

Joined: 03 Dec 2002
Posts: 3
Topics: 1

Posted: Sun Dec 15, 2002 1:52 am Post subject:

Hi, It would be great, If you also mention, How the output will look like. Thanks, Jay

Send private message

Frank Yaeger
Sort Forum Moderator

Sort Forum Moderator

Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose

Posted: Sun Dec 15, 2002 10:01 am Post subject:

Reply with quote

Jay,

Here's an example of what the output might look like for Method 2 with DFSORT:

Code:

03062 0BF6
00773 0305
12672 3180

Here's an example of what the output might look like for Method 3 with DFSORT's ICETOOL:

Code:

RDW LENGTH REPORT

REC# DEC HEX
--------------- ------ ----
1 3062 0BF6
2 773 0305
3 12672 3180

With DFSORT's ICETOOL, you also have the option of specifying formatting options for ON fields, and the number of spaces before and between the columns of data. For example, if we changed the DISPLAY statement to:

Code:

DISPLAY TITLE('RDW LENGTH REPORT') -
FROM(IN) LIST(OUT) BLANK -
INDENT(2) BETWEEN(5) -
HEADER('REC#') HEADER('DEC') HEADER('HEX') -
ON(NUM,N04) ON(VLEN,A1) ON(1,2,HEX)

The output would look like this:

Code:

RDW LENGTH REPORT

REC# DEC HEX
----- ------- ----
1 3,062 0BF6
2 773 0305
3 12,672 3180

For more information on the newer features of DFSORT's ICETOOL, see:

http://www.storage.ibm.com/software/sort/mvs/release_14/online/index.html#itl

For information on DFSORT's ICETOOL in general, see my "ICETOOL Mini-User Guide" at:

http://www.storage.ibm.com/software/sort/mvs/icetool/index.html

You could also make the output from Method 1 look like the output from Method 2 by using appropriate OUTFIL parameters (e.g. HEADER2, SEQNUM) . But Method 2 with DFSORT's ICETOOL is easier.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

Send private message

Send e-mail

Visit poster's website

Display posts from previous:

	MVSFORUMS.com Forum Index -> Utilities	All times are GMT - 5 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group