Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

abend when using a procedure and command "set"

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
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    Post subject: abend when using a procedure and command "set"
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: 7931
Location: Bellevue, IA

PostPosted: Tue Feb 02, 2010 7:07 am    Post subject:
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    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10210
Location: italy

PostPosted: Tue Feb 02, 2010 3:46 pm    Post subject: Reply to: abend when using a procedure and command "set
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

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Tue Feb 02, 2010 3:52 pm    Post subject: Reply to: abend when using a procedure and command "set
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    Post subject:
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    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 7 Fri Nov 18, 2016 1:48 pm
No new posts Regarding COBOL Stored Procedure opti... selvamsrinivasan85 DB2 4 Fri Nov 04, 2016 8:57 pm
No new posts Access SQLCA fields inside a stored p... gangapd DB2 4 Thu Oct 27, 2016 10:20 am
No new posts Amount field is getting corrupted whe... thesumitk SYNCSORT 5 Tue Oct 18, 2016 8:20 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us