Partitioned Dataset

Hi,

Can you tell me whether we can access PDS member in Cobol program.
If we can, what should be DD statement in JCL & File definition in
Cobol program.

Thanks
Sameer.

Easy the JCL statement should look like this:--
//YOURDD   DD DISP=SHR,DSN=HLQ.LIB.LOAD(MEMBER)

And your FD should look like this:-
       File-Control.                                      
            Select YOURFD Assign To YOURDD.             
                                                          
       Data Division.                                     
       File Section.                                      
       FD  YOURFD
           Recording Mode Is F                            
           Block Contains 0 Records                       
           Record Contains 80 characters.                 
       01  P-line                         Pic X(80).      

Or:-
      FD  YOURFD
           Recording Mode Is V
           Block Contains 0 Records                       
           Record Contains 255 characters.                 
       01  P-line                         Pic X(255).


Depending on the record length defined and whether or not it is fixed or var
iable blocks. (Hint ISPF option 3.2)

sameer wrote:
> Hi,
>
>    Can you tell me whether we can access PDS member in Cobol program.
> If we can, what should be DD statement in JCL & File definition in
> Cobol program.
>
> Thanks
> Sameer.


//SYS001 DD DSN=SOME.PDS.NAME(MEMBER),DISP=SHR

SELECT SYS001-INPUT-FILE ASSIGN TO SYS001.

FD  SYS001-INPUT-FILE
BLOCK CONTAINS 0 RECORDS.

01  SYS001-INPUT-RECORD     PIC X(80).

What are you really trying to do?  The example above will work, but
doesn't cover all the possible cases.


--
http://arnold.trembley.home.att.net/


In article <bf573a0d.0408130927.32ec065c@posting.google.com>,
sameer <sameer_bon@rediffmail.com> wrote:
>Hi,
>
>   Can you tell me whether we can access PDS member in Cobol program.
>If we can, what should be DD statement in JCL & File definition in
>Cobol program.

Please do your own homework.

DD