MVSFORUMS.com

monaco · Beginner Joined: 20 May 2004 Posts: 77 Topics: 31

Hi all,

I've found a strange error. I'm trying to execute a JCL consist of an unload of many tables.

If the SYSSIN is in stream the process goes ok
//SYSIN DD *
SELECT

But if the sysin uses a file the process failes:
//SYSIN DD DISP=SHR,DSN=RSA076.AIS3INT.SCRIPT.D280105
The error is:
DSNT502I ERROR IN DSNTIAUL SQL INPUT:
DSNT408I SQLCODE = -104, ERROR: ILLEGAL SYMBOL " ". SOME SYMBOLS THAT MIGHT BE
LOCK OPEN PARM ALTER BEGIN CLOSE

The file I use in the sysin comes from a FTP from local. The JCL is:
//FTPSTE01 EXEC PGM=FTP,PARM='(EXIT TRANSLATE UAB'
//OUTPUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSFTPD DD DUMMY
//INPUT DD *
170.251.103.11
xxxxx
kkkkk
ASCII
LOCSITE SBDATACONN=(IBM-1145,ISO8859-1)
GET EXTRACT/SCRIPTPRUEBA.TXT 'RSA076.AIS3INT.SCRIPT.D280105'
QUIT

Could you help me. I need to get the JCL execute an unload using a file in the syssin.

Kind regards.

kolusu · Posted: Tue Feb 01, 2005 11:52 am Post subject:

Monaco,

Check the contents of the file 'RSA076.AIS3INT.SCRIPT.D280105 ' in bytes 72 thru 80. You might have some junk values in that positions. Clear them and you should do fine.

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

monaco · Beginner Joined: 20 May 2004 Posts: 77 Topics: 31

Thanks Kolusu,

do you know a JCL to execute the comand 'GET' avoiding this problem?

Thanks again.

kolusu · Posted: Tue Feb 01, 2005 1:28 pm Post subject:

Monaco,

Are you allocating the file on the mainframe or dynamically allocating it via FTP commands?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

monaco · Beginner Joined: 20 May 2004 Posts: 77 Topics: 31

Kolusu,

this is the JCL I use:

//**********************************************************************
//* SEND ALL THE OUTPUT FILES TO THE WINDOWS SERVER *
//**********************************************************************
//FTPSTE01 EXEC PGM=FTP,PARM='(EXIT TRANSLATE UAB'
//OUTPUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSFTPD DD DUMMY
//INPUT DD *
170.251.103.11
Jjjjjjjjj
Ppppppp
ASCII
LOCSITE SBDATACONN=(IBM-1145,ISO8859-1)
PUT 'RSA076.AIS3INT.KAETDIT.EXTRACT.D280105' EXTRACT/KAETDIT.TXT
QUIT
/*

Thanks

kolusu · Posted: Tue Feb 01, 2005 2:56 pm Post subject:

Monaco,

I guess your are creating a VB file when you perform a GET command in FTP. Your unload cards should be a FB dataset. Inorder to create a FB dataset , use the LOCSITE parameter to create a 80 byte FB dataset.

Try this JCL

monaco · Beginner Joined: 20 May 2004 Posts: 77 Topics: 31

Thanks Kolusu. It works.

Thanks.