View previous topic :: View next topic
|
Author |
Message |
idlebrain_9999 Warnings : 1 New User
Joined: 18 Dec 2006 Posts: 4 Location: Zurich
|
|
|
|
Hello,
Can I get the information of LRECL and RECFM of a file in a PL/I program?
Thanks, Satish |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
idlebrain_9999 wrote: |
Can I get the information of LRECL and RECFM of a file in a PL/I program? |
Is this a PL/I question? Is this a sort question? Is this a file structure question?
Please explain.... |
|
Back to top |
|
|
idlebrain_9999 Warnings : 1 New User
Joined: 18 Dec 2006 Posts: 4 Location: Zurich
|
|
|
|
it is a PL/I question... i found the answers for it in the IBM reference manual...
we can get the inforamtion of a file in a PL/I program using Built-in functions like FILEDDINT and FILEDDWORD
thanks. |
|
Back to top |
|
|
William Thompson
Global Moderator
Joined: 18 Nov 2006 Posts: 3156 Location: Tucson AZ
|
|
|
|
Great, thanks for letting us know your question is answered.... |
|
Back to top |
|
|
Bitneuker
CICS Moderator
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
|
|
|
|
William Thompson wrote: |
Great, thanks for letting us know your question is answered.... |
Indeed, wished there were more of those out there This one deserves a statue |
|
Back to top |
|
|
PeD
Active User
Joined: 26 Nov 2005 Posts: 459 Location: Belgium
|
|
|
|
Quote: |
we can get the inforamtion of a file in a PL/I program using Built-in functions like FILEDDINT and FILEDDWORD
|
I will not bet on that. My experience. |
|
Back to top |
|
|
UmeySan
Active Member
Joined: 22 Aug 2006 Posts: 771 Location: Germany
|
|
|
|
Hi !
With a little Assembler-Programm that could be called by any language
you could read the Job-File-Controlblock of Datasets to get the informations and transfer it back to the calling programm.
In the ass-pgm, you have to issue RDJFCB (READ-JOB-FILE-CONTROLBLOCK) command.
Also you could use it for modifications, like for modifying the DSN by an open-instruction or so.
USING IOJFCB,R5
RDJFCB KTONDCB ...dcb-name
PRINT ON,GEN
SPACE
KTONDCB DCB DDNAME=TSTKTON,DSORG=PS,MACRF=GL,EXLST=KTONLST
SPACE
DS 0F
KTONNAM DC CL44' ' ...BEREICH DATASET-NAME
KTONMEM DC CL08' ' ...BEREICH MEMBER-NAME
KTONVLS DC CL01' ' ...BEREICH ANZAHL-VOLUMES
KTONVOL DC CL30' ' ...BEREICH VOUME-NUMBERS
SPACE
DS 0F
KTONLST DC X'87' ...EXLST FUER RDJFCB
DC AL3(KTONFCB) ...ADRESS FUER RDJFCB
SPACE
DS 0F
KTONFCB DS 176C ...RETURN-BEREICH FUER RDJFCB
SPACE
PRINT ON,NOGEN
PRINT ON,GEN
SPACE
IOJFCB DSECT ...DSECT
IEFJFCBN LIST=YES
SPACE
PRINT ON,NOGEN
Regards, UmeySan |
|
Back to top |
|
|
idlebrain_9999 Warnings : 1 New User
Joined: 18 Dec 2006 Posts: 4 Location: Zurich
|
|
|
|
Hi UmeySan,
my requirement is to replace the assebler program with a PL/I program.. and i have completed it using EPLI BIFs... anyways thanks for sharing the information..
regards, satish |
|
Back to top |
|
|
|