srajendran2
New User
Joined: 13 May 2008 Posts: 56 Location: Chennai
|
|
|
|
Hi,
I was trying to access DB2 table through FOCUS. But i was getting some error. Please find below the details of the JCL, FOCSQL, MFD, FOCEXEC and the problem occured
FOCSQL
Code: |
SEGNAME=ESPRGN,TABLENAME="TAH1"."D772701T"."ESARGN",
KEYS=1,WRITE=YES,KEYORDER=LOW,$
|
MFD
Code: |
FILENAME=MASTER03, SUFFIX=SQLDS, $
SEGNAME=ESARGN, SEGTYPE=S0, $
FIELDNAME=ENGR_RGN_OFC_ID, ALIAS=NM, FORMAT=A2, $
FIELDNAME=ENGR_RGN_OFC_NM, ALIAS=NA, FORMAT=A20, $
|
FOCEXEC
Code: |
TSO SQL SET SSID TDH1
SET SQLENGINE=DB2
TABLE FILE MASTER03
PRINT *
END
|
JCL
Code: |
//BATTSO EXEC PGM=IKJEFT01
//*
//STEPLIB DD DISP=SHR,DSN=SYSAFOC.FOCSQL.LOAD
// DD DISP=SHR,DSN=SYSAFOC.FOCUS.LOAD
// DD DISP=SHR,DSN=SYSAFOC.FUSELIB.LOAD
// DD DSN=SYSAPDH1.DSNLOAD,DISP=SHR
// DD DSN=SYSA.LE.SCEERUN,DISP=SHR
//USERLIB DD DSN=SYSAFOC.FUSELIB.LOAD,DISP=SHR
//ERRORS DD DISP=SHR,DSN=SYSAFOC.ERRORS.DATA
//MASTER01 DD DSN=N4AAFD.FOCUS.HOSTFILE,DISP=SHR
//MASTER02 DD DSN=N4AAFD.FOCUS.CRFILE,DISP=SHR
//FOCEXEC DD DISP=SHR,DSN=N4AAFD.FOCUS.FOCEXEC
//MASTER DD DISP=SHR,DSN=N4AAFD.FOCUS.MASTER
//FOCSQL DD DISP=SHR,DSN=N4AAFD.FOCUS.FOCSQL
//FOCSTACK DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//FOCSORT DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//HOLD DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//HOLDMAST DD UNIT=SYSDA,SPACE=(TRK,(5,5,5))
//HOLDACC DD UNIT=SYSDA,SPACE=(TRK,(5,5,5))
//OFFLINE DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(TDH1)
RUN PROGRAM(FOCUS) PLAN(DSNTIAUL) LIBRARY('SYSAFOC.FOCUS.LOAD')
END
//SYSIN DD *
EX FOCEXE01
/*
|
when i execute the JCL i get the following error
Code: |
TABLE FILE MASTER03
PRINT *
END
(FOC1400) SQLCODE IS 15925321 (HEX: 00F30049)
(FOC1406) SQL OPEN CURSOR ERROR. : ESPRGN
|
Could you please help me findout what the issue is? |
|