HI Janet,
I noticed that the bind is binding DALLASA.DB2ZP.ZPDB2
but the error is for DB2ZP.ZPDB2.1A320A2A009C519E.
It looks like a mis-match between local and remote versions of the package.
Regards,
Ron
From: Janet Graff <[email protected]>
To: [email protected],
Date: 02/11/2016 05:08 AM
Subject: Re: SQLCODE=-904 during RUN
Sent by: IBM Mainframe Discussion List <[email protected]>
>On Fri, 28 Oct 2016 18:12:01 -0500, Janet Graff <[email protected]>
wrote:
>>I have the program pre-compile, compile, pre-linking, linking and binding
all with return code zeros.
>Can we see the JCL, or better still, the entire job log?
...
>Jantje.
Here's the output from the bind
Again JES data truncated on the right
13.57.58 JOB03253 ---- MONDAY, 31 OCT 2016 ----
13.57.58 JOB03253 IRR010I USERID JIG IS ASSIGNED TO THIS JOB.
13.57.59 JOB03253 ICH70001I JIG LAST ACCESS AT 13:57:42 ON MONDAY,
OCTOBER
13.57.59 JOB03253 $HASP373 JIGDB2 STARTED - INIT 2 - CLASS A - SYS
S0W1
13.58.00 JOB03253 - -----TIMINGS
(MINS.)--
13.58.00 JOB03253 -STEPNAME PROCSTEP RC EXCP CONN TCB
SRB C
13.58.00 JOB03253 -RUN 00 212
30 .00 .00
13.58.00 JOB03253 -JIGDB2 ENDED. NAME- TOTAL TCB
CPU TIM
13.58.00 JOB03253 $HASP395 JIGDB2 ENDED
------ JES2 JOB STATISTICS ------
31 OCT 2016 JOB EXECUTION DATE
39 CARDS READ
174 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
7 SYSOUT SPOOL KBYTES
0.01 MINUTES EXECUTION TIME
1 //JIGDB2 JOB MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID
IEFC653I SUBSTITUTION JCL - MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=JIG
2 //RUN EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
3 //STEPLIB DD DISP=SHR,DSN=DSNA10.DBAG.RUNLIB.LOAD
4 //SYSLIB DD DISP=SHR,DSN=JIG.BASE710.LOAD
5 // DD DISP=SHR,DSN=DSNA10.DBAG.RUNLIB.LOAD
6 //DBRMLIB DD DISP=SHR,DSN=JIG.DBAG.DBRMLIB.DATA
7 //SYSTSPRT DD SYSOUT=*
8 //SYSPRINT DD SYSOUT=*
9 //CEEDUMP DD SYSOUT=*
//*SYSUDUMP DD SYSOUT=*
10 //ZPIDWAGA DD SYSOUT=*
11 //SYSOUT DD SYSOUT=*
12 //REPORT DD SYSOUT=*
13 //SYSIN DD *
//*
14 //SYSTSIN DD *
//*
ICH70001I JIG LAST ACCESS AT 13:57:42 ON MONDAY, OCTOBER 31, 2016
IEF236I ALLOC. FOR JIGDB2 RUN
IEF237I 18C7 ALLOCATED TO STEPLIB
IEF237I 0D39 ALLOCATED TO SYSLIB
IEF237I 18C7 ALLOCATED TO
IEF237I 0D37 ALLOCATED TO DBRMLIB
IEF237I JES2 ALLOCATED TO SYSTSPRT
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO CEEDUMP
IEF237I JES2 ALLOCATED TO ZPIDWAGA
IEF237I JES2 ALLOCATED TO SYSOUT
IEF237I JES2 ALLOCATED TO REPORT
IEF237I JES2 ALLOCATED TO SYSIN
IEF237I JES2 ALLOCATED TO SYSTSIN
IEF237I 18C7 ALLOCATED TO SYS00001
IEF285I DSNA10.DBAG.RUNLIB.LOAD KEPT
IEF285I VOL SER NOS= VPDA1D.
IEF142I JIGDB2 RUN - STEP WAS EXECUTED - COND CODE 0000
IEF285I DSNA10.DBAG.RUNLIB.LOAD KEPT
IEF285I VOL SER NOS= VPDA1D.
IEF285I JIG.BASE710.LOAD KEPT
IEF285I VOL SER NOS= VPWRKJ.
IEF285I DSNA10.DBAG.RUNLIB.LOAD KEPT
IEF285I VOL SER NOS= VPDA1D.
IEF285I JIG.JIGDB2.JOB03253.D0000103.? SYSOUT
IEF285I JIG.JIGDB2.JOB03253.D0000104.? SYSOUT
IEF285I JIG.JIGDB2.JOB03253.D0000105.? SYSOUT
IEF285I JIG.JIGDB2.JOB03253.D0000106.? SYSOUT
IEF285I JIG.JIGDB2.JOB03253.D0000107.? SYSOUT
IEF285I JIG.JIGDB2.JOB03253.D0000108.? SYSOUT
IEF285I JIG.JIGDB2.JOB03253.D0000101.? SYSIN
IEF285I JIG.JIGDB2.JOB03253.D0000102.? SYSIN
IEF285I JIG.DBAG.DBRMLIB.DATA KEPT
IEF285I VOL SER NOS= VPWRKH.
IEF373I STEP/RUN /START 2016305.1357
IEF032I STEP/RUN /STOP 2016305.1358
CPU: 0 HR 00 MIN 00.03 SEC SRB: 0 HR 00 MIN 00.00
SEC
VIRT: 432K SYS: 368K EXT: 4408K SYS: 12744K
IEF375I JOB/JIGDB2 /START 2016305.1357
IEF033I JOB/JIGDB2 /STOP 2016305.1358
CPU: 0 HR 00 MIN 00.03 SEC SRB: 0 HR 00 MIN 00.00
SEC
READY
DSN SYSTEM(DBAG)
DSN
BIND PACKAGE(DB2ZP) MEMBER(ZPDB2) ACT(REP) ISO(CS) CURRENTDATA(YES)
ENCODING(EBCDIC)
DSNT254I -DBAG DSNTBCM2 BIND OPTIONS FOR
PACKAGE = DALLASA.DB2ZP.ZPDB2.()
ACTION REPLACE
OWNER JIG
QUALIFIER JIG
VALIDATE RUN
EXPLAIN NO
ISOLATION CS
RELEASE
COPY
APREUSE
APCOMPARE
APRETAINDUP
QUERYACCELERATION
GETACCELARCHIVE
DSNT255I -DBAG DSNTBCM2 BIND OPTIONS FOR
PACKAGE = DALLASA.DB2ZP.ZPDB2.()
SQLERROR NOPACKAGE
CURRENTDATA YES
DEGREE 1
DYNAMICRULES
DEFER
NOREOPT VARS
KEEPDYNAMIC NO
IMMEDWRITE INHERITFROMPLAN
DBPROTOCOL DRDA
OPTHINT
ENCODING EBCDIC(01047)
PLANMGMT OFF
PLANMGMTSCOPE STATIC
CONCURRENTACCESSRESOLUTION
EXTENDEDINDICATOR
PATH
DSNT232I -DBAG SUCCESSFUL BIND FOR
PACKAGE = DALLASA.DB2ZP.ZPDB2.()
DSN
BIND PLAN(DB2ZP) PKLIST(DB2ZP.*) ACT(REP) ISO(CS) CURRENTDATA(YES)
ENCODING(EBCDIC)
DSNT252I -DBAG DSNTBCM1 BIND OPTIONS FOR PLAN DB2ZP
ACTION REPLACE
OWNER JIG
VALIDATE RUN
ISOLATION CS
ACQUIRE USE
RELEASE COMMIT
EXPLAIN NO
DYNAMICRULES RUN
DSNT253I -DBAG DSNTBCM1 BIND OPTIONS FOR PLAN DB2ZP
NODEFER PREPARE
CACHESIZE 3072
QUALIFIER JIG
CURRENTSERVER
CURRENTDATA YES
DEGREE 1
SQLRULES DB2
DISCONNECT EXPLICIT
NOREOPT VARS
KEEPDYNAMIC NO
IMMEDWRITE NO
DBPROTOCOL DRDA
OPTHINT
ENCODING EBCDIC(01047)
CONCURRENTACCESSRESOLUTION
PATH
DSNT200I -DBAG BIND FOR PLAN DB2ZP SUCCESSFUL
DSN
RUN PROGRAM(DSNTIAD) PLAN(DSNTIA10) LIB('DSNA10.DBAG.RUNLIB.LOAD')
DSN
END
READY
END
DSNTIAD - SAMPLE DYNAMIC SQL PROGRAM 2.0
DROP TABLE JIG.TESTDB2
DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
CREATE TABLE JIG.TESTDB2
(MYAUTO CHAR(16) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYAUTO'),
MYCCN CHAR(16) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYCCN'),
MYSSN CHAR(11) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYSSN'),
MYSST CHAR(16) FIELDPROC VSHFPX01 ('CRYPTID=@WAGA@MYSST'))
IN VOLTTEST.VOLTTAB
DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
DROP TABLE JIG.TESTDB22
DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
CREATE TABLE JIG.TESTDB22
(MYAUTO CHAR(16),
MYCCN CHAR(16),
MYSSN CHAR(11),
MYSST CHAR(16))
IN VOLTTEST.VOLTTAB
DSNT400I SQLCODE = 000, SUCCESSFUL EXECUTION
Janet
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
______________________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
_______________________________________________________________________________
This email has been scanned by the Bankwest Email Security System.
_______________________________________________________________________________
_______________________________________________________________________________
Unencrypted electronic mail is not secure and may not be authentic.
If you have any doubts as to the contents please telephone to confirm.
This electronic transmission including any attachments is intended only
for those to whom it is addressed. It may contain copyright material or
information that is confidential, privileged or exempt from disclosure by law.
Any claim to privilege is not waived or lost by reason of mistaken transmission
of this information. If you are not the intended recipient you must not
distribute or copy this transmission and should please notify the sender.
Your costs for doing this will be reimbursed by the sender.
We do not accept liability in connection with computer virus, data corruption,
delay, interruption, unauthorised access or unauthorised amendment.
_______________________________________________________________________________
______________________________________________________________________
This email has been scanned by the Symantec Email Security.cloud service.
For more information please visit http://www.symanteccloud.com
______________________________________________________________________
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
