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
 

 

EZACFSM1 utility and FTP

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
sridevi t

New User


Joined: 17 Nov 2008
Posts: 3
Location: Bengaluru,India

PostPosted: Thu Nov 20, 2008 4:27 pm    Post subject: EZACFSM1 utility and FTP
Reply with quote

Hi,

I need to ftp a file to a server with the current date appended to the destination file name.
I have used utility EZACFSM1. The job failed with the utility step
having a RC 0f 0037 and the ftp step with a RC of 1954. the code i have used is in the attachment.
the userid and password used for ftp are right, but the message received is 'Incorrect login'.

Can anyone please let me know how do i correct the same.

- Sri

Attachment Removed
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: Thu Nov 20, 2008 5:31 pm    Post subject: Reply to: Help on utility EZACFSM1 and FTP
Reply with quote

Make sure you're using the EZACFSM1 program properly:

1.2.9.1 MVS system symbols.
Back to top
View user's profile Send private message
sridevi t

New User


Joined: 17 Nov 2008
Posts: 3
Location: Bengaluru,India

PostPosted: Thu Nov 20, 2008 9:16 pm    Post subject: Reply to: Help on utility EZACFSM1 and FTP
Reply with quote

Hi,

Below is the code which i have used.PROC1 and PARM1 are for utility EZACFSM1 and PROC2 and PARM2 are for FTP
Code:

//**************************************
//S01 JCLLIB ORDER=(USERID.TEST.PROCLIB)
//S02 INCLUDE MEMBER=MEMBER1
//***************************************
//STEP1  EXEC PROC1,
//      MEMB1='PARM1'
//SYSOUT DD SYSOUT=*
//*
//STEP2  EXEC PROC2,
//              FTPSITE='SERVER1.COM(EXIT',
//              MEMB1='PARM2'
//****************************************
//*   IF PREVIOUS STEP FAILS
//****************************************
// IF (STEP2.STEP0010.RC NE 0) THEN
//STEP3  EXEC PROC3,
//              FTPSITE='SERVER2.COM(EXIT',
//              MEMB1='PARM3'
// ENDIF
//*
//*


Code:

//PROC1 PROC MEMB1=
//*
//STEP0010 EXEC PGM=EZACFSM1
//*
//SYSPRINT DD SYSOUT=*
//INPUT DD DSN=USERID.TEST.PARMLIB(&MEMB1),
//              DISP=SHR


&MEMB1 = PARM1
===============
Code:

PUT 'HOST.FILE' +
DEST_FILE_NAME_&LYR4&MON&DAY..DAT
QUIT


Code:

//PROC2 PROC FTPSITE=,
//           MEMB1=
//*
//STEP0010 EXEC PGM=FTP,
//           PARM='&FTPSITE'
//*
//SYSPRINT DD SYSOUT=*
//STEP11 DD DSN=USERID.TEST.PARMLIB(&MEMB1),
//                DISP=SHR


&MEMB1 = PARM2
===============
Code:

USERID
PSWD
ASCII
CD /PATH/OF/DEST
QUIT


Error msgs got
----------------
530 Login incorrect
EZA1735I Std Return Code = 26530, Error Code = 00011

Information Messages got
--------------------------
.I USER GROUP PRODTABL IS AN UNKNOWN USER GROUP
.I TMSS JLS AGENT +PRODANY.NITE ADDED TO JOB
.I SYSTEM AFFINITY RE-SET TO ANY FOR THIS JOB
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: Thu Nov 20, 2008 9:24 pm    Post subject: Reply to: Help on utility EZACFSM1 and FTP
Reply with quote

To start, where are the input (SYSIN) and output (SYSOUT) DD names for the EZACFSM1 program? I see where you have the SYSOUT DD statement pointing to SYSOUT=*. Don't you want that output in a dataset?
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Fri Nov 21, 2008 3:11 am    Post subject:
Reply with quote

Hi,

In this
Code:
//STEP0010 EXEC PGM=EZACFSM1
//*
//SYSPRINT DD SYSOUT=*
//INPUT DD DSN=USERID.TEST.PARMLIB(&MEMB1),
//              DISP=SHR
change INPUT to SYSIN, EZACFSM1 should go fine.

However, I don't understand the meaning of "PUT 'HOST.FILE' +" & "QUIT " in this "
Code:
PUT 'HOST.FILE' +
DEST_FILE_NAME_&LYR4&MON&DAY..DAT
QUIT
when it's being treated as an input (SYSIN) for EZACFSM1 - what purpose does it serve there ?
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: Fri Nov 21, 2008 4:01 am    Post subject: Reply to: Help on utility EZACFSM1 and FTP
Reply with quote

I think that the goal is to use the EZACFSM1 translation utility to translate the values for the system variables &LYR4, &MON, and &DAY to their actual realtime values to be used in the target filename for the FTP.
Back to top
View user's profile Send private message
sridevi t

New User


Joined: 17 Nov 2008
Posts: 3
Location: Bengaluru,India

PostPosted: Fri Nov 21, 2008 12:44 pm    Post subject: Reply to: Help on utility EZACFSM1 and FTP
Reply with quote

Hi

I did not understand EZACFSM1 earlier, hence the RC 37. Now i get it....i changed the INPUT DD DSN to SYSIN DD DSN and all's fine. Saw the current date appended to the file name in the output file too.

Have to still figure ou the 'Login Incorrect' message at the ftp step. I am sure about the userid and password though.Guess its the server name thats gone wrong icon_neutral.gif

Thank you all for your valuable comments icon_smile.gif

-Sri
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 -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts Best IMS DB Unload Utility jjabez10 IMS DB/DC 12 Thu Sep 22, 2016 11:15 pm
No new posts Any docs / links for isub- cobol comp... SRICOBSAS COBOL Programming 4 Fri Aug 26, 2016 2:35 pm
No new posts Comparex utility to Syncsort conversion mistah kurtz SYNCSORT 11 Fri Jul 22, 2016 1:53 pm
No new posts DXT unload utility - DVRE0000 mistah kurtz DB2 1 Thu Jul 07, 2016 4:56 pm


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