Hello Hal,
 
Thanks from your help,
 
Change here :
 
000001 //TST2FIXP JOB ,'TECH.SUPPORT',CLASS=A,NOTIFY=&SYSUID,TIME=1440,      
000002 //        MSGLEVEL=(1,1),MSGCLASS=T                                   
000003 //***************************************************//               
000004 //*       INSTALL SPFPDS LOAD MODULE FOR FIXPDS     *//               
000005 //***************************************************//               
000006 //FPDSASM PROC M=                                                     
000007 //ASM    EXEC  PGM=ASMA90,REGION=3500K,          (IBM ASSEMBLER H)    
000008 // PARM='DECK,RENT,NOLOAD'                                            
000009 //SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR           SYSTEM MACRO LIBRARY
000010 //         DD  DSN=SYS1.MODGEN,DISP=SHR          SYSTEM MACRO LIBRARY 
000011 //         DD  DSN=IBMUSER.FILE036,DISP=SHR      <== THIS LIBRARY     
000012 //SYSUT1   DD  SPACE=(CYL,(5,5)),UNIT=SYSDA                           
000013 //SYSUT2   DD  SPACE=(CYL,(5,5)),UNIT=SYSDA                           
000014 //SYSUT3   DD  SPACE=(CYL,(5,5)),UNIT=SYSDA                           
000015 //SYSTERM  DD  SYSOUT=*                                               
000016 //SYSPRINT DD  SYSOUT=*                                               
000017 //SYSLIN   DD  DISP=SHR,DSN=IBMUSER.OBJECT(&M)                        
000018 //SYSIN    DD  DISP=SHR,DSN=IBMUSER.FILE036(&M)                       
 
And got this :
 
12.09.51 JOB00334 ---- THURSDAY,  09 DEC 2010 ----                             
12.09.51 JOB00334  IRR010I  USERID IBMUSR3  IS ASSIGNED TO THIS JOB.           
12.09.51 JOB00334  ICH70001I IBMUSR3  LAST ACCESS AT 12:04:04 ON THURSDAY, DECE
12.09.51 JOB00334  $HASP373 TST2FIXP STARTED - INIT 1    - CLASS A - SYS CPAC  
12.09.51 JOB00334  IEF403I TST2FIXP - STARTED - TIME=12.09.51                  
12.09.51 JOB00334  IEC217I B14-10,IGG0201Z,TST2FIXP,ASM,SYSLIN,0122,D9ECAT,IBMU
12.09.51 JOB00334  IEA995I SYMPTOM DUMP OUTPUT  829                            
   829             SYSTEM COMPLETION CODE=B14  REASON CODE=00000010            
   829              TIME=12.09.51  SEQ=00032  CPU=0000  ASID=0023              
   829              PSW AT TIME OF ERROR  075C1000   80DE5CF6  ILC 2  INTC 0D  
   829                NO ACTIVE MODULE FOUND                                   
   829                NAME=UNKNOWN                                             
   829                DATA AT PSW  00DE5CF0 - 41003846  0A0DB20A  00509808     
   829                AR/GR 0: 880D5C66/00DE5F00   1: 00000000/A4B14000        
   829                      2: 00000000/000064B0   3: 00000000/00DE56BA        
   829                      4: 00000000/008BBD60   5: 00000000/00DFC000        
 .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  .  . 
 
Thanks again,
 
Sergio 
 
> Date: Wed, 8 Dec 2010 15:11:59 -0600
> From: [email protected]
> Subject: Re: Problem when try compile a CBT036 FILE
> To: [email protected]
> 
> Not sure, but part of the problem may be in the assembler step:
> 
> //SYSLIN DD DISP=SHR,DSN=IBMUSER.OBJECT 
> 
> Reallocate IBMUSER.OBJECT as a PDS and change the JCL to:
> 
> //SYSLIN DD DISP=OLD,DSN=IBMUSER.OBJECT(&M) 
> 
> 
> Another problem is that module ISPLINK is not in SYS1.LINKLIB. Specify the 
> correct library. 
> 
> HTH and good luck. 
> 
> 
> 
> 
> 
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf 
> Of Sergio Lima
> Sent: Wednesday, December 08, 2010 2:47 PM
> To: [email protected]
> Subject: Problem when try compile a CBT036 FILE
> 
> 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=IBMUSER.FILE036(&M),DISP=OLD 
> //* 
> //PEND PEND 
> //* 
> //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=IBMUSER.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 [email protected] with the message: GET IBM-MAIN INFO
> Search the archives at http://bama.ua.edu/archives/ibm-main.html
> NOTICE: This electronic mail message and any files transmitted with it are 
> intended
> exclusively for the individual or entity to which it is addressed. The 
> message, 
> together with any attachment, may contain confidential and/or privileged 
> information.
> Any unauthorized review, use, printing, saving, copying, disclosure or 
> distribution 
> is strictly prohibited. If you have received this message in error, please 
> immediately advise the sender by reply email and delete all copies.
> 
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to