MVSFORUMS.com

[JOHNCWL]

Hi,
I am using the below JCL for generating the DDLs for a database, its throwing user abend code 4038

//*JOBCARD
//*---------------------------------------------------
//*- JCL SUBMITTED FROM REXX
//*---------------------------------------------------
//GENSQL EXEC PGM=IKJEFT01,DYNAMNBR=100
//STEPLIB DD DISP=SHR,DSN=DSN610.ADB610.SADBLLIB
// DD DISP=SHR,DSN=DSN610.SDSNLOAD
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DBZ6)
RUN PROG(ADB2GEN) PLAN(ADB2GEN)
END
//SYSPRINT DD SYSOUT=*
//SQL DD DISP=SHR,DSN=JOHN.TEMP.REXX(TEST1)
//IN DD *
DB2SYS = 'DBZ6',
DB2ALOC = '',
DB2SERV = 'UGCZ6',
DB2AUTH = 'JOHN',
DB2REL = '610',
GENDB = 'Y',
GENTS = 'Y',
GENTABLE = 'Y',
GENVIEW = 'Y',
GENINDEX = 'Y',
GENSYN = 'Y',
GENALIAS = 'Y',
GENLABEL = 'Y',
GENCOMM = 'Y',
GENRELS = 'Y',
GENTRIG = 'Y',
GRANTDB = 'Y',
GRANTTS = 'Y',
GRANTTAB = 'Y',
GRANTVW = 'Y',
NEWDB = 'MOR1T01',
NEWTSSG = 'MOR1T01',
NEWIXSG = '',
NEWSQLID = '',
SPCALLOC = 'DEFINED',
COMMITFR = 'A',
DEFAULTS = 'K',
TGTDB2 = '710';
DB='MOR1T01', TS='', OWN='', TB='';
/*


Error details are as follows:

********************************* TOP OF DATA *********
IBM0121S ONCODE=21 The RECORD condition was raised because the length of the record variable was less than the
record length ('ONFILE'= SQL).
From compile unit ADB2GEN at entry point PUT_SQL at statement 14316 at compile unit offset +00052C3E at entry offset +00000472 at address 11576CF6.
'ERROR' condition was raised
Traceback of user routines:
Compile Unit Entry Statement CU offset Entry offset Address
ADB2GEN PUT_SQL 14316 +00052C3E +00000472 11576CF6
ADB2GEN GET_RUN_PARM 614 +00003C3C +0000231C 11527CF4
ADB2GEN ADB2GEN 263 +00000562 +0000055A 1152461A

and then throws CEEDUMP

Pls help me out

[Mike Chantrey]

This error:
IBM0121S ONCODE=21 The RECORD condition was raised because the length of the record variable was less than the
record length ('ONFILE'= SQL).

indicates to me that your JOHN.TEMP.REXX file has the wrong record length (e.g. is it FB80 but should be VB255 or something?)

[JOHNCWL]

Thanks!! it worked.