Sergio, the SYSLIN statement you added serves no purpose and should be
deleted.
Point the SYSPUNCH DD at a newly-created card-image PDS
(RECFM=FB,LRECL=80,BLKSIZE=0), SPACE=(TRK,(15,15,15))
Also point your LKED SYSLIB statement at this same PDS. Using the TEST
option on the LKED parm also serves no purpose here. Take a look at what
I added/changed in your JCL.
Is LMOD ISPLINK in your SYS1.LINKLIB ?? If not, you'll have to locate it
and adjust the DSNAME in the LKED step. SMP/E can tell you where the
ISPLINK module actually resides.
Rick
------------------------------------------------------------
Sergio Lima wrote:
Hello List,
We try compile here, the CBT036 FILE (FIXPDS), and something wrong happen here.
We got this jcl :
//TST2FIXP JOB ,'TECH.SUPPORT',CLASS=A,NOTIFY=&SYSUID,TIME=1440,
// MSGLEVEL=(1,1),MSGCLASS=T
//***************************************************//
//* INSTALL SPFPDS LOAD MODULE FOR FIXPDS *//
//***************************************************//
//FPDSASM PROC M=
//ASM EXEC PGM=ASMA90,REGION=3500K, (IBM ASSEMBLER H)
// PARM='DECK,RENT,NOLOAD'
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR SYSTEM MACRO LIBRARY
// DD DSN=SYS1.MODGEN,DISP=SHR SYSTEM MACRO LIBRARY
// DD DSN=IBMUSER.FILE036,DISP=SHR <== THIS LIBRARY
//SYSUT1 DD SPACE=(CYL,(5,5)),UNIT=SYSDA
//SYSUT2 DD SPACE=(CYL,(5,5)),UNIT=SYSDA
//SYSUT3 DD SPACE=(CYL,(5,5)),UNIT=SYSDA
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DISP=SHR,DSN=IBMUSER.OBJECT
//SYSIN DD DISP=SHR,DSN=IBMUSER.FILE036(&M)
//SYSPUNCH DD DSN=USER.OBJECT(&M),DISP=OLD <--- note dsn change
//*
//PEND PEND
Insert:
//OBJFILE DD DSN=USER.OBJECT,DISP=(,CATLG),UNIT=SYSDA,
// SPACE=(trk,(15,15,15)),RECFM=FB,LRECL=80,BLKSIZE=0,DSORG=PO
//*
//SPFCNTL EXEC FPDSASM,M=SPFCNTL
//SPFCORE EXEC FPDSASM,M=SPFCORE
//SPFFIX EXEC FPDSASM,M=SPFFIX
//SPFMAIN EXEC FPDSASM,M=SPFMAIN
//SPFSCAN EXEC FPDSASM,M=SPFSCAN
//SPFSRCH EXEC FPDSASM,M=SPFSRCH
//*
//LKED EXEC PGM=IEWL,PARM='TERM,XREF,LIST,LET,TEST',
// COND=(7,LT)
//SYSLMOD DD DSN=IBMUSER.LOAD,DISP=SHR
//ISPLIB DD DSN=SYS1.LINKLIB,DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSTERM DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DISP=SHR,DSN=USER.OBJECT
//SYSLIN DD *
INCLUDE SYSLIB(SPFCNTL)
INCLUDE SYSLIB(SPFCORE)
INCLUDE SYSLIB(SPFFIX)
INCLUDE SYSLIB(SPFMAIN)
INCLUDE SYSLIB(SPFSCAN)
INCLUDE SYSLIB(SPFSRCH)
INCLUDE ISPLIB(ISPLINK)
SETCODE AC(0)
NAME SPFPDS(R)
/*
The SYSLIN STATEMENT before the PEND command was inserted here by us, because
We imagine that this parameter was missing.
After try compile, receive the error below:
IEW2278I B352 INVOCATION PARAMETERS - TERM,XREF,LIST,LET,TEST
IEW2801S D41C AN I/O ERROR OCCURRED WHILE ATTEMPTING TO READ DIRECTORY ENTRIES
FROM DDNAME SYSLIB.
IEW2303E 1030 MEMBER ISPLINK OF THE DATA SET SPECIFIED BY ISPLIB COULD NOT BE
FOUND.
IEW2230S 0414 MODULE HAS NO TEXT.
IEW2677S 5130 A VALID ENTRY POINT COULD NOT BE DETERMINED.
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 12.
z/OS V1 R10 BINDER 18:38:44 WEDNESDAY DECEMBER 8, 2010
BATCH EMULATOR JOB(TST2FIXP) STEP(LKED ) PGM= IEWL
IEW2278I B352 INVOCATION PARAMETERS - TERM,XREF,LIST,LET,TEST
IEW2322I 1220 1 INCLUDE SYSLIB(SPFCNTL)
IEW2801S D41C AN I/O ERROR OCCURRED WHILE ATTEMPTING TO READ DIRECTORY ENTRIES F
IEW2322I 1220 2 INCLUDE SYSLIB(SPFCORE)
IEW2322I 1220 3 INCLUDE SYSLIB(SPFFIX)
IEW2322I 1220 4 INCLUDE SYSLIB(SPFMAIN)
IEW2322I 1220 5 INCLUDE SYSLIB(SPFSCAN)
IEW2322I 1220 6 INCLUDE SYSLIB(SPFSRCH)
IEW2322I 1220 7 INCLUDE ISPLIB(ISPLINK)
IEW2303E 1030 MEMBER ISPLINK OF THE DATA SET SPECIFIED BY ISPLIB COULD NOT BE FO
IEW2322I 1220 8 SETCODE AC(0)
IEW2322I 1220 9 NAME SPFPDS(R)
IEW2230S 0414 MODULE HAS NO TEXT.
IEW2677S 5130 A VALID ENTRY POINT COULD NOT BE DETERMINED.
IEW2008I 0F03 PROCESSING COMPLETED. RETURN CODE = 12.
We have no much experience, because here start a migration from Z/VSE to Z/OS.
Someone can help us please ?
Thanks very much,
Sergio Lima Costa
Sao Paulo - Brazil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
