IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Creating Variable Length pattern file using IEBDG?


 
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: :: View next topic  
Author Message
sudarshan.srivathsav

New User


Joined: 10 Jul 2012
Posts: 24
Location: USA

PostPosted: Tue Sep 23, 2014 2:41 am
Reply with quote

Hi All,

I create multiple pattern files for testing purposes using the IEBDG utility of IBM, note that I always create "Fixed Block" files.

Now , I am in need of creating a variable length file , but I am getting this error when i try to do so:

Code:
                              DATA GENERATOR OUTPUT FOR CONTROL CARDS AND MESSAGES                       PAGE  0001         
          DSD OUTPUT=(OUT)                                                       00380033                                   
          FD  NAME=F1,STARTLOC=5,LENGTH=6,PICTURE=5,'12345',ACTION=RO            00390033                                   
          FD  NAME=F2,STARTLOC=11,LENGTH=6,PICTURE=5,'67890',ACTION=RP           00400033                                   
          FD  NAME=F3,STARTLOC=17,LENGTH=35,FORMAT=ZD,INDEX=1                    00410033                                   
          FD  NAME=F4,STARTLOC=52,LENGTH=5,PICTURE=5,'12345',ACTION=RP           00420033                                   
          FD  NAME=F5,STARTLOC=57,LENGTH=5,PICTURE=5,'67890',ACTION=RO           00430033                                   
          FD  NAME=F6,STARTLOC=62,LENGTH=63,FORMAT=AL,ACTION=SL                  00440033                                   
          CREATE QUANTITY=00900000,NAME=(F1,F2,F3,F3,F4,F6),FILL=X'FF'           00450033                                   
IEB716I PICTURE STRING OR FD FIELD OVERFLOWS OUTPUT RECORD OR INPUT FIELD SELECTED OVERRUNS INPUT WORKAREA                   
          END                                                                    00460033                                   
IEB700I                     DATA GENERATION HAS BEEN              COMPLETED COMPLETION CODE IS EIGHT                         

Actual JCL:***********************************************
//PATTERN  EXEC PGM=IEBDG                                             
//SYSPRINT DD  SYSOUT=*                                               
//OUT      DD  DSN=XXXXX.RAND.DATA.M100MB.TC2,                       
//             DISP=(NEW,CATLG,CATLG),                                 
//             UNIT=(SYSDA,10),                                       
//             STORCLAS=SC2,                                           
//             SPACE=(CYL,(1200,200),RLSE),                           
//             DCB=(RECFM=VB,LRECL=125,BLKSIZE=0)                     
//SYSIN    DD  *                                                       
 DSD OUTPUT=(OUT)                                                     
 FD  NAME=F1,STARTLOC=5,LENGTH=6,PICTURE=5,'12345',ACTION=RO           
 FD  NAME=F2,STARTLOC=11,LENGTH=6,PICTURE=5,'67890',ACTION=RP         
 FD  NAME=F3,STARTLOC=17,LENGTH=35,FORMAT=ZD,INDEX=1                   
 FD  NAME=F4,STARTLOC=52,LENGTH=5,PICTURE=5,'12345',ACTION=RP         
 FD  NAME=F5,STARTLOC=57,LENGTH=5,PICTURE=5,'67890',ACTION=RO         
 FD  NAME=F6,STARTLOC=62,LENGTH=63,FORMAT=AL,ACTION=SL                 
 CREATE QUANTITY=00900000,NAME=(F1,F2,F3,F3,F4,F6),FILL=X'FF'         
 END                                                                   





What could be the reason for this, also can anyone suggest me or share a JCL which creates a Variable length file using IEBDG utility...

I already did try to find it in IBM manuals, not able to find it, so any help from you guys would be really appreciated...Thanks in advance.!!
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2429
Location: Hampshire, UK

PostPosted: Tue Sep 23, 2014 6:05 pm
Reply with quote

One thing I can see is that your last FD defines a record of length 125 bytes but your JCL specifies 125 bytes - you need 4 bytes for the RDW so either your FD must be reduced in size or you LRECL increased.
Back to top
View user's profile Send private message
sudarshan.srivathsav

New User


Joined: 10 Jul 2012
Posts: 24
Location: USA

PostPosted: Tue Sep 23, 2014 8:46 pm
Reply with quote

Nic, Thanks you rightly pointed me about the RDW!.. Thanks
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> JCL & VSAM
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts COBOL VS SORT Utility for file format... COBOL Programming 6
No new posts How to find which file contains my se... DFSORT/ICETOOL 6
No new posts IGZ0035S THERE WAS AN UNSUCCESSFUL OP... COBOL Programming 3
No new posts XML Parsing in COBOL creating "h... COBOL Programming 0
No new posts Creating additional seqnum/Literal wh... DFSORT/ICETOOL 4

Back to Top