priyam
Beginner
Joined: 05 Jul 2006
Posts: 16
Topics: 12
|
 Posted: Wed Jan 30, 2008 5:40 am Post subject: Getting ERROR using Enterprise compiler - IBM1654S |
 |
|
Hi,
Am getting the folwoing error for PLI_CICS_DB2 program
IBM1654I S 67.0 The LIKE reference is unknown.
| Code: |
[u][b]My Program:[/b][/u]
DCL 1 Rxxxx_SQLCA
LIKE SQLCA;
Basically it is not recognizing SQLCA.
[u][b]My SCLM Laguage definition for PLI+CICS+DB2 program:[/b][/u]
CICP FLMSYSLB SYS1.CTSxxx.SDFHSAMP
FLMSYSLB SYS1.CTSxxx.SDFHMAC
FLMSYSLB SYS1.CTSxxx.SDFHPLI
*
FLMLANGL LANG=CICP,VERSION=V3
FLMINCLS TYPES=(@@FLMETP)
PLINCLN FLMINCLS TYPES=(PLINCLN)
*
* PARSER TRANSLATOR
*
FLMTRNSL CALLNAM='PL/I PARSER', C
FUNCTN=PARSE, C
COMPILE=FLMLPGEN, C
PORDER=1, C
GOODRC=8, C
OPTIONS=(ISA(2K)/@@FLMSTP, C
@@FLMLIS, C
@@FLMSIZ, C
@@FLMPRJ, C
@@FLMGRP, C
@@FLMTYP, C
@@FLMMBR, C
LANG=I)
FLMALLOC IOTYPE=A,DDNAME=SSOURCE
FLMCPYLB @@FLMPRJ.@@FLMGRP.@@FLMTYP@@FLMMBR)
FLMALLOC IOTYPE=W,DDNAME=ERROR, C
LRECL=133, C
PRINT=Y, C
RECFM=VBA, C
RECNUM=6000
* --PL/I PRECOMPILER --
FLMTRNSL CALLNAM='DB2 PREPROCSS', C
FUNCTN=BUILD, C
COMPILE=DSNHPC, C
GOODRC=4, C
PORDER=3, C
PARMKWD=PARM0, C
OPTIONS=(HOST(PLI),APOST,SOURCE)
* -- N/A --
FLMALLOC IOTYPE=N
* -- N/A --
FLMALLOC IOTYPE=N
* -- N/A --
FLMALLOC IOTYPE=N
* -- SYSLIB --
FLMALLOC IOTYPE=I,KEYREF=SINC
FLMCPYLB SYS1.CTSxxx.SDFHMAC
* -- SYSIN --
FLMALLOC IOTYPE=S,KEYREF=SINC,RECFM=FB,LRECL=80, C
RECNUM=5000
* -- SYSPRINT --
FLMALLOC IOTYPE=W,RECFM=FBA,LRECL=133, C
RECNUM=35000,PRINT=Y
* -- N/A --
FLMALLOC IOTYPE=N
* -- SYSUT1 --
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=800,RECNUM=9000
* -- SYSUT2 --
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=800,RECNUM=9000
* -- SYSUT3 --
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=800,RECNUM=9000
* -- N/A --
FLMALLOC IOTYPE=N
* -- SYSTERM --
FLMALLOC IOTYPE=A
FLMCPYLB NULLFILE
* -- N/A --
FLMALLOC IOTYPE=N
* -- SYSCIN --
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80, C
RECNUM=9000,DDNAME=DB2TRANS
* -- N/A --
FLMALLOC IOTYPE=N
* -- DBRMLIB--
FLMALLOC IOTYPE=P,DDNAME=DBRMLIB,MEMBER=@@FLMONM, C
DFLTTYP=DBRM,KEYREF=OUT1, C
RECFM=FB,LRECL=80,RECNUM=5000,DIRBLKS=1
* --DB2 CICS PREPROCESSOR INTERFACE--
FLMTRNSL CALLNAM='CICS PREPROC', C
FUNCTN=BUILD, C
COMPILE=DFHEPP1$, C
DSNAME=SYS1.CTSxxx.SDFHLOAD, C
GOODRC=4, C
PORDER=3, C
OPTIONS=(DLI,CICS,SP)
* -- N/A --
FLMALLOC IOTYPE=N
* -- N/A --
FLMALLOC IOTYPE=N
* -- N/A --
FLMALLOC IOTYPE=N
* -- N/A --
FLMALLOC IOTYPE=N
* (* SYSIN *)
FLMALLOC IOTYPE=U,DDNAME=DB2TRANS
* (* SYSPRINT *)
FLMALLOC IOTYPE=W,RECFM=FBA,LRECL=121, C
RECNUM=35000,PRINT=Y
* (* SYSPUNCH *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80, C
DDNAME=CICSOUT,RECNUM=15000
*
* --COBOL INTERFACE--
FLMTRNSL CALLNAM='PLI ENTERPRISE', C
FUNCTN=BUILD, C
COMPILE=IBMZPLI, C
TASKLIB=TASKLIB, C
VERSION=3.5, C
GOODRC=4, C
PORDER=3, C
OPTIONS=(MACRO,OBJECT,SOURCE,XREF,F
(I),A,NEST,GS)
*
* DDNAME ALLOCATIONS
*
* (* SYSLIN *)
FLMALLOC IOTYPE=O,KEYREF=OBJ,RECFM=FB,LRECL=80, C
RECNUM=5000,DFLTTYP=OBJ
* (* N/A *)
FLMALLOC IOTYPE=N
* (* N/A *)
FLMALLOC IOTYPE=N
* (* SYSLIB *)
FLMALLOC IOTYPE=I,KEYREF=SINC,DDNAME=SYSLIB
FLMCPYLB SYS1.CTSxxx.SDFHMAC
* (* SYSIN *)
FLMALLOC IOTYPE=U,KEYREF=SINC,DDNAME=CICSOUT
* (* SYSPRINT *)
FLMALLOC IOTYPE=O,KEYREF=LIST,RECFM=FBA,LRECL=133, C
RECNUM=15000,PRINT=Y,DDNAME=SYSPRINT
* (* SYSPUNCH *)
FLMALLOC IOTYPE=A
FLMCPYLB NULLFILE
* (* SYSUT1 *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80,RECNUM=5000
* (* SYSUT2 *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80,RECNUM=5000
* (* SYSUT3 *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80,RECNUM=5000
* (* SYSUT4 *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80,RECNUM=5000
* (* SYSTERM *)
FLMALLOC IOTYPE=A
FLMCPYLB NULLFILE
* (* SYSUT5 *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80,RECNUM=5000
* (* SYSUT6 *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80,RECNUM=5000
* (* SYSUT7 *)
FLMALLOC IOTYPE=W,RECFM=FB,LRECL=80,RECNUM=5000
* (* TASKLIB *)
FLMALLOC IOTYPE=A,DDNAME=TASKLIB
FLMCPYLB SYS1.xxxx.SIBMZCMP
FLMCPYLB SYS1.SCEERUN |
Can anyone help me in ths? |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
