| View previous topic :: View next topic |
| Author |
Message |
Jai Prakash
Beginner
Joined: 11 Apr 2007
Posts: 4
Topics: 2
|
 Posted: Wed Apr 11, 2007 8:36 am Post subject: FFT file properties? |
 |
|
| How to find the record length(LRECL) and other properties of FFT files. |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Wed Apr 11, 2007 8:46 am Post subject: |
|
|
Jai Prakash,
what are FFT files? Never heard of them . on mainframe you only have a Fixed or variable files.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Jai Prakash
Beginner
Joined: 11 Apr 2007
Posts: 4
Topics: 2
|
| Posted: Thu Apr 12, 2007 1:55 am Post subject: |
|
|
FFT files are tape files.
The below JCl I used for to print the LRECL of VB files.
//STEP010 EXEC PGM=SORT
//SORTIN DD DISP=SHR,DSN=AAAAA.BBBB.FFT.OBHF1.G0001V00
//SORTOUT DD DUMMY
//SYSOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY,
STOPAFT=1
/*
and SYSOUT getting abend ABENDU0016
SORTIN RECFM IS U |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Thu Apr 12, 2007 9:11 am Post subject: |
|
|
Jai Prakash,
Sort products do NOT support datasets with RECFM=U. Usually these are load modules and they are undefined.
Try this fileaid step
| Code: |
//STEP0100 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//SYSLIST DD SYSOUT=*
//DD01 DD DSN=your fft file,
// DISP=SHR
//DD01O DD SYSOUT=*
//SYSIN DD *
$$DD01 COPY OUT=1
/*
|
Hope this helps...
Cheers
kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
expat
Intermediate
Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales
|
| Posted: Thu Apr 12, 2007 9:18 am Post subject: |
|
|
If your tapes are standard label tapes, then the following might help you.
The standard tape label is FB 80, hence the RECFM / LRECL used below.
| Code: |
//PRINTLBL EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=your file name,DISP=OLD,
// LABEL=(1,BLP),
// RECFM=FB,LRECL=80
//SYSUT2 DD SYSOUT=*
//SYSIN DD DUMMY
|
|
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Thu Apr 12, 2007 9:59 am Post subject: |
|
|
expat,
Hmm I think OP's question was to find the DCB properties of the file.
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
samlwho
Beginner
Joined: 08 Feb 2007
Posts: 21
Topics: 2
|
| Posted: Thu Apr 12, 2007 2:38 pm Post subject: |
|
|
Jaiprakash,
Hopefully this will work for you or maybe this is custom for the shop I work in, at any rate to find out information about a tape, I:
1). 3.4 in TSO
2). FILE Name & ENTER
3). Type TMS beside the file name (tape) and hopefully you will see the TMS Inquiry Display screen shown below which has all of the desired information.
| Code: |
TMS I.V565.G0208V00 T123456
|
| Code: |
-------------------- T M S I N Q U I R Y D I S P L A Y --------------------
COMMAND ===>
ENTER VOLUME SERIAL ==>
VOLUME SERIAL = T123456
INTERNAL VOLSER =
DATA SET NAME = I.V565.G0208V00
NUMBER DATA SETS = 0001 VM USERID = FTI WO = 000372
VOLUME SEQUENCE = 0001 MVS USERID = A0BHGL OUTCODE =
ACCESS CODE = 03 EXPDT = CATALOG OUTDATE = ZEROS
CREATING JOBNAME = XXXXXXXX STEPNAME = YYYYYYYY
CREATION DATE = 04/12/2007 CREATION TIME = 1311
LAST JOB USING TAPE = CCCCCCCC LAST DATE USED = 04/12/2007
LABEL = SL DENSITY = 38KC TRTCH = 3490 36TRK
RECFM = VB LRECL = 06666 BLKSIZE = 27998 BLKCNT = 000248
FIRSTVOL = NEXTVOL = PREVVOL =
|
|
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Thu Apr 12, 2007 2:43 pm Post subject: |
|
|
samlwho,
TMS is not a standard IBM command. It is a command for an add-on product for Tape Management system. Unless Jaiprakash has TMS installed he will not be able to use the command
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
expat
Intermediate
Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales
|
| Posted: Fri Apr 13, 2007 1:41 am Post subject: |
|
|
Kolusu
| Quote: | | Hmm I think OP's question was to find the DCB properties of the file. |
Yep, and that's exactly what the IEBGENER does. It prints the information which is stored on LABEL1 and contains the RECFM LRECL & BLKSIZE data. LABEL2 is the data and LABEL3 is EOD.
_________________
If it's true that we are here to help others,
then what exactly are the others here for ? |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
