Transaction abending with APCT - load not found

[priyabrata.mohanty]

Hi,

I am trying to run a simple cics/cob prog that uses BMS map to send/receive data. I have assembled physical map to SYSFAN.CICS.LOAD and symbolic map to CICSTS23.CICS.SDFHMAC. After defining and installing the transaction EMPT and program TESTPGM, when I am trying to initiate EMPTm it's abending with APCT. I think it is because CICS is unable to find physical map load because EMPT works fine when i do a cics send/receive without any formatted map (i.e. send text/receive text).

I tried assembling inot CICSTS23.CICS.SDSFLOAD but job failed because of authorization error. Can anyone suggest if it is because CICSA procedure does not refer to SYSFAN.CICS.LOAD and if so, can sysprog/sysfan pls grant me access to CICSTS23.CICS.SDSFLOAD?

Thanks.

[priyabrata.mohanty]

Hi,

To add to this post, i am using the below libraries for assm and translate/compile/linkedit:

G710047.JCL.CNTL(MAPASM)
G710047.JCL.CNTL(COBCICS)

Thanks.

[sysprog]

The CICSTS23 datasets are protected and should not be updated. Instead please store your modules to SYSFAN.CICS.*.

The dataset SYSFAN.CICS.LOAD is in the concantenation of CICS's DFHRPL DD.
Please use SYSFAN.CICS.SDFHMAC, instead of CICSTS23.CICS.SDFHMAC.

You may check the task CICSA in SDSF to find out the dataset allocations of CICS.

[mikrom]

I had similar problem: with this JCL script

Code: Select all

//MIKROMP JOB (),CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID       
//ASSEM   EXEC DFHMAPS,MAPNAME='MSET014',RMODE=24                       
//SYSUT1  DD *                                                         
MSET014 DFHMSD TYPE=MAP,MODE=INOUT,LANG=C,STORAGE=AUTO,TIOAPFX=YES     
*       MENU MAP.                                                       
MAP014  DFHMDI SIZE=(24,80),CTRL=(PRINT,FREEKB)                         
        DFHMDF POS=(9,23),ATTRB=(ASKIP,NORM),LENGTH=34,                X
               INITIAL='WELCOME TO THE MAGIC WORLD OF CICS'             
        DFHMDF POS=(12,33),ATTRB=(ASKIP,NORM),LENGTH=15,               X
               INITIAL='GROUP MIKROM !'                                 
        DFHMSD TYPE=FINAL                                               
        END                                                             
/*                                                                     
//                                                                     


I got the error $HASP165 MIKROMP ENDED AT N1 - ABENDED S913 U0000 CN(INTERNAL).
The joblog in SDSF showed me INSUFFICIENT ACCESS AUTHORITY for CICSTS23.CICS.SDFHLOAD and CICSTS23.CICS.SDFHMAC.

So I changed the JCL as sysprog suggested to

Code: Select all

//MIKROMP JOB (),CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID       
//ASSEM   EXEC DFHMAPS,MAPNAME='MSET014',RMODE=24,                     
//             MAPLIB='SYSFAN.CICS.LOAD',                               
//             DSCTLIB='SYSFAN.CICS.SDFHMAC'                           
//SYSUT1  DD *                                                         
MSET014 DFHMSD TYPE=MAP,MODE=INOUT,LANG=C,STORAGE=AUTO,TIOAPFX=YES     
*       MENU MAP.                                                       
MAP014  DFHMDI SIZE=(24,80),CTRL=(PRINT,FREEKB)                         
        DFHMDF POS=(9,23),ATTRB=(ASKIP,NORM),LENGTH=34,                X
               INITIAL='WELCOME TO THE MAGIC WORLD OF CICS'             
        DFHMDF POS=(12,33),ATTRB=(ASKIP,NORM),LENGTH=15,               X
               INITIAL='GROUP MIKROM !'                                 
        DFHMSD TYPE=FINAL                                               
        END                                                             
/*                                                                     
//                                                                     


and now it compiles fine.

[mikrom]

Now I have other problem.
When I try to compile a C program (which should use CICS to display the created BMS-Map) with this JCL script

Code: Select all

//MIKROMS JOB (),CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
//            TIME=1440                                           
//        EXEC PROC=CTOCICS,REG=0M                               
//TRN.SYSIN DD DISP=SHR,DSN=MIKROM.CICS.TEST(PROG014)             
//LKED.SYSIN DD *                                                 


I get the error $HASP165 MIKROMS ENDED AT N1 - JCL ERROR CN(INTERNAL) .
In SDSF joblog says that PROCEDURE CTOCICS WAS NOT FOUND.

Where can I find the procedure CTOCISC or how to compile C with embedded CISC commands ?

[mikrom]

A CICS-COBOL example which I tried before compiled succesfully with the procedure DFHEITVL and I found in SYSFAN.ADCD.PROCLIB a similar procedure for CICS-C named DFHEITDL. But there was a little problem with it, because the procedure tries to search a member DFHEILID in CICSTS23.CICS.SDFHC370, but the member is placed in CICSTS23.CICS.SDFHSAMP really.
So I changed the affected COPYLINK step and here is the JCL script which finally works for me:

Code: Select all

//MIKROMS JOB (),CLASS=A,MSGCLASS=H,MSGLEVEL=(1,1),NOTIFY=&SYSUID,
//            TIME=1440
//STEP1 EXEC DFHEITDL,
//           PROGLIB=SYSFAN.CICS.LOAD
//*          PROGLIB=&SYSUID..TEST.LOAD
//TRN.SYSIN DD DISP=SHR,DSN=MIKROM.CICS.TEST(PROG014)
//* THIS IS NECESSARY BECAUSE THE MEMBER DFHEILID HAS MOVED
//* FROM THE SDFHC370 LIBRARY TO THE SDFHSAMP LIBRARY:
//COPYLINK.SYSUT1 DD DSN=&INDEX..SDFHSAMP(DFHEILID),DISP=SHR
//LKED.SYSIN DD *
 NAME PROG014(R)