Tệp JCL để tạo PDS và thành viên

Question

Làm cách nào tôi có thể viết tệp JCL để tạo PDS và thành viên trong cùng một PDS đó?

Answer 1

Bạn chỉ có thể thiết lập thành viên trong PDS mới nếu bạn viết thư cho nó. Nếu bạn làm như sau:

//S1  EXEC PGM=IEFBR14          
//PDS  DD DSN=USER.TEST.PDS(NEWMEM),DISP=(NEW,CATLG),  
//   SPACE=(TRK,(1,1,24)),UNIT=DISK,      
//   LRECL=80,RECFM=FB,BLKSIZE=6080 

... bạn sẽ nhận được danh mục PDS nhưng thành viên sẽ không được lưu. Nếu bạn thực thi chương trình viết cho thành viên, ví dụ:

//S2  EXEC PGM=IEBGENER          
//SYSUT1 DD *             
//SYSUT2 DD DSN=USER.TEST.PDS(NEWMEM),DISP=(NEW,CATLG),  
//   SPACE=(TRK,(1,1,24)),UNIT=DISK,      
//   LRECL=80,RECFM=FB,BLKSIZE=6080      
//SYSPRINT DD SYSOUT=*           
//SYSIN DD DUMMY 

... thì thành viên sẽ được lưu.

Có vẻ như bạn muốn tạo một thành viên trống cho một công việc hoặc bước sau. Thông thường điều này là không cần thiết vì BPAM sẽ tạo một thành viên nếu nó không tồn tại và ghi đè lên một thành viên hiện tại nếu nó có.

Answer 2

IEBCOPY cũng hoạt động cho bạn. Nó được sử dụng để tạo PDS hoặc sao chép một PDS sang một phần khác hoặc hoàn toàn bằng cách chọn hoặc bỏ qua các bộ nhớ cần thiết của PDS. Nó kết hợp cả hai bước được đề cập ở trên vào một ... Tôi hy vọng tôi đã làm cho bạn rõ ràng. Quay lại nếu bạn cần cú pháp JOB cho điều đó ..