What is the failure you're seeing? On Thu, Sep 16, 2010 at 1:38 PM, Scott Ford <[email protected]> wrote: > I have seen several 'bit and piece' posts on LE Cobol calling C > All: > > I have seen several 'bit and piece' posts on LE Cobol calling C. I have > written > a sample C call and here is the source and have included the C source and JCL > , > Cobol source and JCL, I dont understand what I have missed, I have been > through > the LE Books and C-C++ books and I am confused and the execution is receiving > a > S0C7 : > > JCL for 'C' compile: > ---------------------- > > //ADCDMETA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8, > // NOTIFY=&SYSUID,REGION=0M > // EXEC EDCCL, > // INFILE=SFORD.JCLLIB.CNTL(TESTC)', > // OUTFILE='SFORD.CLINKLIB(TS04B),DISP=SHR' > > 'C' Source: > ------------------- > > #include <stdio.h> > #include <string.h> > #pragma linkage(TS04B,COBOL) > void TS04B( char *pBuffer ) > { > strcpy( pBuffer, "OK "); > fprintf(stderr,"ok trans\n"); > } > > LE Cobol V4r1 JCL: > -------------------------- > > //ADCDTHRA JOB SYSTEMS,MSGLEVEL=(1,1),MSGCLASS=X,CLASS=A,PRTY=8, > // NOTIFY=&SYSUID,REGION=4096K > //*---------------------------------------------------------------- > //COB EXEC PGM=IGYCRCTL, > // PARM=('NOC(E)','FLAG(W)','DATA(31)',NODYN,RES,RENT,OPT, > // MAP,NOSSR,NOZWB,NUM,NOTERM,NOVBREF,X,APOST,LIB,LIST), > // REGION=1024K > //STEPLIB DD DISP=SHR,DSN=IGY410.SIGYCOMP > //SYSLIB DD DISP=SHR,DSN=CEE.ACEESRC1 > // DD DISP=SHR,DSN=SFORD.CLINKLIB > //SYSPRINT DD SYSOUT=X > //SYSUT1 DD UNIT=VIO > //SYSUT2 DD UNIT=VIO > //SYSUT3 DD UNIT=VIO > //SYSUT4 DD UNIT=VIO > //SYSUT5 DD UNIT=VIO > //SYSUT6 DD UNIT=VIO > //SYSUT7 DD UNIT=VIO > //SYSLIN DD DISP=(,PASS),DSN=&&LOADSET, > // UNIT=VIO, > // DCB=BLKSIZE=3200 > //SYSIN DD DISP=SHR,DSN=SFORD.COBOL.SOURCE(THRALLC) > //* > //LNK EXEC PGM=IEWL, > // COND=(4,LT,COB), > // PARM='LIST,XREF', > // REGION=4096K > //SYSLIB DD DISP=SHR,DSN=SFORD.CLINKLIB > // DD DISP=SHR,DSN=CEE.SCEELKED > // DD DISP=SHR,DSN=SYS1.CSSLIB > // DD DISP=SHR,DSN=TCPIP.SEZATCP > //SYSLMOD DD DISP=SHR,DSN=SFORD.CLINKLIB > //SYSUT1 DD UNIT=SYSDA, > // DCB=BLKSIZE=1024, > // SPACE=(1024,(200,20)) > //SYSPRINT DD SYSOUT=X > //SYSLOUT DD SYSOUT=X > //SYSLIN DD DISP=(OLD,DELETE),DSN=&&LOADSET > // DD DDNAME=SYSIN > //SYSIN DD * > MODE AMODE(31),RMODE(ANY) > INCLUDE SYSLIB(EDCSTART) > INCLUDE SYSLIB(CEEROOTB) > INCLUDE SYSLIB(@@CBL2C) > INCLUDE SYSLMOD(TS04B) > ENTRY THRALLC > NAME THRALLC(R) > /* > // > > LE Cobol Source: > --------------------- > > IDENTIFICATION DIVISION. > PROGRAM-ID. THRALLC. > ENVIRONMENT DIVISION. > INPUT-OUTPUT SECTION. > FILE-CONTROL. > DATA DIVISION. > FILE SECTION. > WORKING-STORAGE SECTION. > 01 TS04B PIC X(8) VALUE 'TS04B'. > 01 TESTIT PIC X(10) VALUE 'SCOTT'. > PROCEDURE DIVISION. > DISPLAY 'START OF TS04A'. > CALL TS04B USING TESTIT. > DISPLAY TESTIT. > GOBACK. > > Sorry for the long post, but I think one has to see all the pieces. > Please tell me am I blind in my old age or what... > Thanks in advance. > > > Scott J Ford > > > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: GET IBM-MAIN INFO > Search the archives at http://bama.ua.edu/archives/ibm-main.html >
-- zMan -- "I've got a mainframe and I'm not afraid to use it" ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
