|
View previous topic :: View next topic
|
| Author |
Message |
smaru
New User
Joined: 22 Oct 2008
Posts: 49
Location: India
|
|
|
|
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 |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| 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 |
|
|
smaru
New User
Joined: 22 Oct 2008
Posts: 49
Location: India
|
|
|
|
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 |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
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 |
|
|
|
|
