Erro no CICS - DFHPA1909 CICS DATA 216 IS INVALID FOR KEYWORD

Customer Information Control System, ou simplesmente CICS, é um monitor de transações utilizado inicialmente nos sistemas operacionais z/OS e z/VSE dos mainframes da IBM. Atualmente o CICS é disponibilizado para outros sistemas operacionais, como o i5/OS, OS/2, AIX, Windows, Linux, dentre outros. A implementação para o sistema z/OS é de longe a mais popular e importante dentre todas. CICS é um sistema de processamento de transações designado tanto para atividade Online como processamento Batch. Uma transação é basicamente um conjunto de comandos que executam uma tarefa. Normalmente , a maioria das transações são tarefas relativamente simples, como a atualização de uma conta corrente. Executado em servidores Z IBM System, o CICS facilmente suporta milhares de transações por segundo. Aplicações CICS podem ser escritas em muitas linguagens de programação, incluindo COBOL, PL/I, C, C++, IBM Basic Assembly language, REXX, e Java.

Erro no CICS

Depois de um tempo consegui encontrar uma solução para o erro abaixo:

   *09.00.19 STC00060 *02 DFHPA1909 CICS     DATA 216 IS INVALID FOR KEYWORD
   * CICSSVC=. RESPECIFY KEYWORD AND DATA.

A solução que encontrei

Primeiro alterado a LOADPARM para 0A95DC..

# --------------------------------------------------------------------------------------- 
# Hercules Emulator Control file...                                                      
# Description: 
# MaxShutdownSecs: 15
#
#
# System parameters
# --------------------------------------------------------------------------------------- 

ARCHMODE  z/Arch
ALRF      ENABLE
CCKD      RA=2,RAQ=4,RAT=2,WR=2,GCINT=5,GCPARM=0,NOSTRESS=0,TRACE=0,FREEPEND=-1
CNSLPORT  3270
CONKPALV  (3,1,10)
CPUMODEL  3090
CPUSERIAL 012345
DIAG8CMD  ENABLE
ECPSVM    YES
LOADPARM  0A95DC..    # CICS ONLINE
# LOADPARM  0A95CC..
# LOADPARM  0A95DB..    # estava assim
LPARNAME  HERCULES
MAINSIZE  1024
MOUNTED_TAPE_REINIT  DISALLOW
NUMCPU    4
OSTAILOR  Z/OS
PANRATE   80
PGMPRDOS  LICENSED
SHCMDOPT  NODIAG8
SYSEPOCH  1900
TIMERINT  50
TZOFFSET  +1400
YROFFSET  0

HERCPRIO  0
TODPRIO   -20
DEVPRIO   8
CPUPRIO   0
PANTITLE  z/OS 1.10 IPL A80?

# ---------------------------------------------------------------------------------------    
# SYMBOLS DEFINITION                                          
# ---------------------------------------------------------------------------------------    

DEFSYM DASD "C:\Mainframe\Z_OS_110"
DEFSYM PRTR "C:\Mainframe\Z_OS_110"

# ---------------------------------------------------------------------------------------    
# Device list
# ---------------------------------------------------------------------------------------    

# Display Terminals

0700    3270
0701    3270
0702    3270
0703    3270
0704    3270

# DASD Devices

0A81    3390    $(DASD)\zares1.cckd
0A82    3390    $(DASD)\zares2.cckd
0A83    3390    $(DASD)\zadb81.cckd
0A84    3390    $(DASD)\zadb82.cckd
0A85    3390    $(DASD)\zadb83.cckd
0A86    3390    $(DASD)\zadb84.cckd
0A87    3390    $(DASD)\zadb91.cckd
0A88    3390    $(DASD)\zadb92.cckd
0A89    3390    $(DASD)\zacic1.cckd
0A8A    3390    $(DASD)\zadis1.cckd
0A8B    3390    $(DASD)\zadis2.cckd
0A8C    3390    $(DASD)\zadis3.cckd
0A8D    3390    $(DASD)\zadis4.cckd
0A8E    3390    $(DASD)\zadis5.cckd
0A8F    3390    $(DASD)\zadis6.cckd
0A90    3390    $(DASD)\zaims1.cckd
0A91    3390    $(DASD)\zaprd1.cckd
0A92    3390    $(DASD)\zaprd2.cckd
0A93    3390    $(DASD)\zaprd3.cckd
0A94    3390    $(DASD)\zaprd4.cckd
0A95    3390    $(DASD)\zasys1.cckd
0A96    3390    $(DASD)\zauss1.cckd
0A97    3390    $(DASD)\zawas1.cckd
0A98    3390    $(DASD)\zawas2.cckd
0A99    3390    $(DASD)\zawas3.cckd
0A9A    3390    $(DASD)\sares1.cckd

Depois de dar o IPL com essa configuração acesso o CICS (tecle enter)

WELCOME TO CICS 03:01:03


                    ******\  ******\  ******\   ******\(R)
                   ********\ ******\ ********\ ********\
                   **\\\\**\   **\\\ **\\\\**\ **\\\\**\
                   **\    \\   **\   **\    \\ **\    \\
                   **\         **\   **\       *******\
                   **\         **\   **\        *******\
                   **\         **\   **\         \\\\**\
                   **\   **\   **\   **\   **\ **\   **\
                   ********\ ******\ ********\ ********\
                    ******\\ ******\  ******\\  ******\\
                     \\\\\\   \\\\\\   \\\\\\    \\\\\\

Vai dar erro mais dá para digitar: CEDA DEF PROGRAM(N28A) GROUP(N28APPL)

WELCOME TO CICS 03:01:03





                     ******\  ******\  ******\   ******\(R)
                    ********\ ******\ ********\ ********\
                    **\\\\**\   **\\\ **\\\\**\ **\\\\**\
                    **\    \\   **\   **\    \\ **\    \\
                    **\         **\   **\       *******\
                    **\         **\   **\        *******\
                    **\         **\   **\         \\\\**\
                    **\   **\   **\   **\   **\ **\   **\
                    ********\ ******\ ********\ ********\
                     ******\\ ******\  ******\\  ******\\
                      \\\\\\   \\\\\\   \\\\\\    \\\\\\





DFHAC2001 03/09/2018 03:04:31 CICS Transaction '' is not recognized. Check
  that the transaction name is correct. CEDA DEF PROGRAM(N28A) GROUP(N28APPL)

Agora o que faz depois daqui não sei;

DEF PROGRAM(N28A) GROUP(N28APPL)
  OVERTYPE TO MODIFY                                        CICS RELEASE = 0650
   CEDA  DEFine PROGram( N28A     )
    PROGram        : N28A
    Group          : N28APPL
    DEscription  ==>
    Language     ==>                    CObol | Assembler | Le370 | C | Pli
    RELoad       ==> No                 No | Yes
    RESident     ==> No                 No | Yes
    USAge        ==> Normal             Normal | Transient
    USElpacopy   ==> No                 No | Yes
    Status       ==> Enabled            Enabled | Disabled
    RSl            : 00                 0-24 | Public
    CEdf         ==> Yes                Yes | No
    DAtalocation ==> Below              Below | Any
    EXECKey      ==> User               User | Cics
    COncurrency  ==> Quasirent          Quasirent | Threadsafe
    Api          ==> Cicsapi            Cicsapi | Openapi
   REMOTE ATTRIBUTES
+  DYnamic      ==> No                 No | Yes
   S Object already exists in this group.
                                                      SYSID=CICS APPLID=CICS
   DEFINE UNSUCCESSFUL                          TIME:  03.12.06  DATE: 18.068
PF 1 HELP 2 COM 3 END             6 CRSR 7 SBH 8 SFH 9 MSG 10 SB 11 SF 12 CNCL

Categories: CICS