IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

abend when using a procedure and command "set"
IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal
PostPosted: Tue Feb 02, 2010 5:12 am
 Reply with quote
This is the JCL

Code:
//PCNDR1 JOB ,'PCN&VSAM.-RO-LISBOA',
// COND=((04,EQ),(08,EQ),(12,EQ),(16,EQ),(4095,EQ),(300,LT)),
// MSGLEVEL=(1,1),
// NOTIFY=&SYSUID,
// TYPRUN=HOLD,
// MSGCLASS=X,
// USER=CTMB,
// CLASS=1
//*
//LIBSRCH JCLLIB ORDER=NDVRPRD.PRD.JCL.PRCLIB00.RO
// INCLUDE MEMBER=$BATCH
// INCLUDE MEMBER=$TCPIP
// INCLUDE MEMBER=$DB2
//*
// SET VSAM=FEE \* FICHEIRO
// SET LRECL=0480 \* LRECL DO VSAM NO PARM DO PDIFERE
// SET AMBIENTE=PRO \* AMBIENTE
//*
//* ______ APAGA TEMPORARIOS _________________________________________
//APAGA EXEC PGM=IEFBR14
//A DD DSN=&AMBIENTE.GR1.PCNDR1.&VSAM..LIS,
// DISP=(MOD,DELETE),SPACE=(TRK,0)
//*
//* ______ DEFINE TEMPORARIOS ________________________________________
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN DD DUMMY
//OUT1 DD DSN=&AMBIENTE.GR1.PCNDR1.&VSAM..LIS,
// DISP=(,CATLG),SPACE=(CYL,(5,5)),LRECL=5004,RECFM=VB
REPRO INFILE (IN) OUTFILE (OUT1)
//*
//* ______ ACTUALIZA TEMPORARIO DE LISBOA ____________________________
//COPIA EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN DD DISP=SHR,DSN=&AMBIENTE.QUE01.&VSAM..CL
//OUT DD DISP=SHR,DSN=&AMBIENTE.GR1.PCNDR1.&VSAM..LIS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE (IN) OUTFILE (OUT)
//*
//* ______ ENVIA FICHEIRO E JOB PARA VISEU ___________________________
//ENVIA EXEC @FTP,DESTINO=ROMB1RMT
//OUTPUT DD SYSOUT=*
//INPUT DD *
TYPE E
MODE C
PUT '&AMBIENTE.GR1.PCNDR1.&VSAM..LIS'
CLOSE
QUIT
//*


... the result

Code:
19.59.24 JOB57570 ---- THURSDAY, 21 JAN 2010
19.59.24 JOB57570 /HASP373 PCNDR1 STARTED -
19.59.24 JOB57570 IEF403I PCNDR1 - STARTED -
19.59.25 JOB57570 -STEPNAME PROCSTEP RC
19.59.25 JOB57570 -APAGA 00
19.59.25 JOB57570 -DEFINE 00
19.59.25 JOB57570 -COPIA 00
19.59.26 JOB57570 -ENVIA SFTP 2424
19.59.26 JOB57570 IEF451I PCNDR1 SFTP ENVIA -
19.59.26 JOB57570 -PCNDR1 ENDED. NAME-PCN&
19.59.26 JOB57570 /HASP395 PCNDR1 ENDED
... and the abend

Code:
********************************* TOP OF DATA **********************************
EZA1736I FTP ROMB1RMT (EXIT
EZA1450I IBM FTP CS V1R9
EZA1466I FTP: using TCPIPB1
EZA1772I FTP: EXIT has been set.
EZA1554I Connecting to: ROMB1RMT 172.16.33.10 port: 21.
220-FTPB1 IBM FTP CS V1R9 at ROMB, 17:59:31 on 2010-01-21.
220 Connection will close if idle for more than 10 minutes.
EZA1701I >>> USER PRDCTM
331 Send password please.
EZA1701I >>> PASS
230 PRDCTM is logged on. Working directory is "PRDCTM.".
EZA1460I Command:
EZA1736I TYPE E
EZA1701I >>> TYPE E
200 Representation type is Ebcdic NonPrint
EZA1460I Command:
EZA1736I MODE C
EZA1701I >>> MODE C
200 Data transfer mode is Compressed
EZA1460I Command:
EZA1736I PUT '&AMBIENTE.GR1.PCNDR1.&VSAM..LIS'
EZA1685W Invalid local file identifier
EZA1735I Std Return Code = 27000, Error Code = 00018
EZA1701I >>> QUIT
221 Quit command received. Goodbye.
******************************** BOTTOM OF DATA ********************************

Is it possible the procedure "@ftp" doesn't work with command "set"?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
PostPosted: Tue Feb 02, 2010 7:07 am
 Reply with quote
Code:
EZA1736I PUT '&AMBIENTE.GR1.PCNDR1.&VSAM..LIS'
EZA1685W Invalid local file identifier
EZA1735I Std Return Code = 27000, Error Code = 00018
This tells you everything you need to know to (a) understand the problem, and (b) fix the problem. Hint: what substitution did the system do for your symbols?
Back to top
View user's profile Send private message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal
PostPosted: Tue Feb 02, 2010 3:43 pm
 Reply with quote
All the substitution were made in the previous steps except in this one, where the problems is. This is the reason of my question: Is it possible the procedure "@ftp" doesn't work with command "set"?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy
PostPosted: Tue Feb 02, 2010 3:46 pm
 Reply with quote
variable substitution , as per manual,
will take place only on jcl statements, not data cards
Back to top
View user's profile Send private message
superk

Global Moderator


Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
PostPosted: Tue Feb 02, 2010 3:52 pm
 Reply with quote
Here's what I don't understand.

You create the dataset with the substituted values here:

//COPIA EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//IN DD DISP=SHR,DSN=&AMBIENTE.QUE01.&VSAM..CL
//OUT DD DISP=SHR,DSN=&AMBIENTE.GR1.PCNDR1.&VSAM..LIS

but you don't carry that name forward to the @FTP Proc:

//ENVIA EXEC @FTP,DESTINO=ROMB1RMT
//OUTPUT DD SYSOUT=*
//FTPF DD DISP=SHR,DSN=&AMBIENTE.GR1.PCNDR1.&VSAM..LIS
//INPUT DD *
TYPE E
MODE C
PUT //DD:FTPF
CLOSE
QUIT
//*
Back to top
View user's profile Send private message
vasco ferreira

New User


Joined: 12 Jul 2008
Posts: 32
Location: sintra - portugal
PostPosted: Tue Feb 02, 2010 4:21 pm
 Reply with quote
I think i'll try with a clist...
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM

 

Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts ISAM and abend S03B JCL & VSAM 10
No new posts LTJ command CA Products 4
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us