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
 

 

About the FTP Program

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

New User


Joined: 22 Oct 2008
Posts: 49
Location: India

PostPosted: Tue Nov 25, 2008 3:19 am    Post subject: About the FTP Program
Reply with quote

Hi,

Can someone help in understanding the program 'FTP' . Is that an assembler program??

If not can this be called as an Subroutine.
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 Nov 25, 2008 3:22 am    Post subject: Re: About the FTP Program
Reply with quote

smaru wrote:
Hi,

Can someone help in understanding the program 'FTP' . Is that an assembler program??

If not can this be called as an Subroutine.


I believe that FTP is written in "C". Yes, it can be called via a "CALL" statement.
Back to top
View user's profile Send private message
smaru

New User


Joined: 22 Oct 2008
Posts: 49
Location: India

PostPosted: Wed Nov 26, 2008 6:30 am    Post subject:
Reply with quote

After searching in this forum, I was able to compile program with FTP as subroutine.

When I execute the Jcl using the same, it is getting abended with abend message " CEE3648S POSIX(ON) run-time option in a nested enclave PROGRAM is not supported. where PROGRAM refers to my Cobol program.

Can any one suggest me about enabling POSIX(ON) for cobol program.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Wed Nov 26, 2008 7:54 am    Post subject:
Reply with quote

Hello,

I believe you need to set posix off.

Does your jcl look something like:
Code:
//CALLFTP   EXEC PGM=PROGRAM,PARM='xx.xx.xx.xx ( EXIT'

if so you might try this:
Code:
//CALLFTP   EXEC PGM=PROGRAM,PARM='POSIX(OFF) /xx.xx.xx.xx ( EXIT'


Quote:
A cleaner fix is to leave JCL alone and change the COBOL to prepend the PARM with the required POSIX(OFF) runtime option before invoking FTP:

Add to WORKING-STORAGE SECTION:

01 WS-PARM.
05 WS-LEN PIC 999 COMP.
05 WS-TEXT.
10 FILLER PIC X(12) VALUE 'POSIX(OFF) /'.
10 WS-REST PIC X(88).

Change the following in LINKAGE SECTION:

01 CALLER-PARM.
05 CALLER-LEN PIC 999 COMP.
05 CALLER-TEXT PIC X(100).

Change start of PROCEDURE DIVISION:

PROCEDURE DIVISION USING CALLER-PARM.
MOVE CALLER-TEXT (1:CALLER-LEN) TO WS-REST.
COMPUTE WS-LEN = CALLER-LEN + 12.
CALL FTP USING WS-PARM.
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 SQL query not working in Cobol program. CuriousMainframer COBOL Programming 14 Wed Feb 22, 2017 5:56 pm
No new posts Executing OO COBOL program invoking J... Virendra Shambharkar COBOL Programming 2 Tue Jan 10, 2017 6:37 pm
No new posts Need Suggestion on COBOL program vickey_dw COBOL Programming 5 Thu Jan 05, 2017 10:55 pm
No new posts I can not compile my program PL1 V3.R... Miguel Fernandez PL/I & Assembler 13 Tue Dec 06, 2016 8:30 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


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