CICS - Comandos importantes - Guia de referência - www.cadcobol.com.br


clique aqui para imprimir esta página


Desenvolvido por DORNELLES Carlos Alberto - Analista de Sistemas - Brasília DF. - cad_cobol@hotmail.com

CICS - Comandos importantes - Guia de referência

CICS command cheat sheet includes a list of all important commands.
The following CICS commands include a brief description along with corresponding CICS COBOL commands syntax.

A folha de dicas do comando CICS inclui uma lista de todos os comandos importantes.
Os comandos CICS a seguir incluem uma breve descrição junto com a sintaxe de comandos COBOL CICS correspondente.

Note - Nota:

[ ] indicate optional parameters - indica parâmetros opcionais
[ | ] indicates a choice of one of the options listed (or none) - indica a escolha de uma das opções listadas (ou nenhuma)
{ | } indicates you must specify one of the options - indica que você deve especificar uma das opções


Abend Force the current task to terminate abnormally
Força a tarefa atual a terminar de forma anormal

   EXEC CICS
        ABEND [ABCODE(name)] 
              [CANCEL] 
              [NODUMP]
   END-EXEC.
Address Lets you access system information maintained in storage outside your program
Permite acessar informações do sistema mantidas no armazenamento fora de seu programa

   EXEC CICS
        ADDRESS [ACEE(pointer-ref)] 
                [COMMAREA(pointer-ref)] 
                [CSA(pointer-ref)] 
                [CWA(pointer-ref)]
                [EIB(pointer-ref)] 
                [TCTUA(pointer-ref)] 
                [TWA(pointer-ref)]
   END-EXEC.   
Allocate Establishes a distributed processing session with another system
Estabelece uma sessão de processamento distribuído com outro sistema

   EXEC CICS
        ALLOCATE SYSID(name) [PROFILE(name)]
                             [NOQUEUE |NOSUSPEND] 
                             [STATE(data-area)]
   END-EXEC.
Asktime Obtain the current time and date
Obtenha a hora e a data atuais

   EXEC CICS
        ASKTIME [ABSTIME(data-area)]
   END-EXEC.
Assign Obtain information from various system control areas
Obtenha informações de várias áreas de controle do sistema

   EXEC CICS
        ASSIGN option(data-area)
   END-EXEC.
BIF DEEDIT Formats alphanumeric data into numeric data
Formata dados alfanuméricos em dados numéricos

   EXEC CICS
        BIF DEEDIT FIELD(data-area) [LENGTH(data-value)]
   END-EXEC.
Build Attach Creates an ATTACH FMH used to initiate a background transaction with LU6.1 or MRO
Cria um ATTACH FMH usado para iniciar uma transação em segundo plano com LU6.1 ou MRO

   EXEC CICS
        BUILD ATTACH ATTACHID(name) [PROCESS(name)] 
                                    [RESOURCE(name)] 
                                    [RPROCESS(name)] 
                                    [RRESOURCE(name)] 
                                    [QUEUE(name)]
                                    [IUTYPE(data-value)] 
                                    [DATASTR(data-value)] 
                                    [RECFM(data-value)]
   END-EXEC.
CANCEL Cancels the effect of a DELAY, POST, or START command
Cancela o efeito de um comando DELAY, POST ou START

   EXEC CICS
        CANCEL [REQID(name)] 
               [TRANSID(name)] 
               [SYSID(name)]
   END-EXEC.
Change Task Changes the priority of the current task
Muda a prioridade da tarefa atual

   EXEC CICS 
        CHANGE TASK PRIORITY(data-value) 
   END-EXEC.
Connect Process Initiates an application program on a remote system once a session has been allocated
Inicia um programa aplicativo em um sistema remoto, uma vez que uma sessão foi alocada

   EXEC CICS
        CONNECT PROCESS {CONV(name) | SESSION(name) } PROCNAME(data-area) PROCLENGTH(data-area) SYNCLEVEL(data-area)
                        [PIPLIST(data-area) PIPLENGTH(data-value)] 
                        [STATE(data-area)]
   END-EXEC.
Converse Send data to a remote process and receive a response
Envie dados para um processo remoto e receba uma resposta

   EXEC CICS
        CONVERSE [CONVID(name) | SESSION(name)] 
                 [ATTACHID(name)] FROM(data-area) { FROMLENGTH(data-area) | FROMFLENGTH(data-area) } 
                 { INTO(data-area) | SET(pointer-ref) } 
                 {TOLENGTH(data-area) | TOFLENGTH(data-area) } 
                 [MAXLENGTH(data-value) | MAXFLENGTH(data-value)] 
                 [NOTRUNCATE] [STATE(data-area)]
   END-EXEC.
Delay Suspend a task
Suspender uma tarefa

   EXEC CICS
        DELAY [INTERVAL(hhmmss) | TIME(hhmmss) | FOR 
              [HOURS(hh)] [MINUTES(mm)] 
              [SECONDS(ss)] | UNTIL [HOURS(hh)] 
              [MINUTES(mm)] 
              [SECONDS(ss)]] [REQID(name)]
   END-EXEC.
Delete Remove a record from a file
Remover um registro de um arquivo

   EXEC CICS
        DELETE { DATASET(name) | FILE(name) } [RIDFLD(data-area) 
               [KEYLENGTH(data-value) 
               [GENERIC [NUMREC(data-area)]]]] [RBA | RRN] 
               [SYSID(name)]
   END-EXEC.
Deleteq Td Remove a record from a transient data queue
Remova um registro de uma fila de dados transitórios

   EXEC CICS 
        DELETEQ TD QUEUE(name) [SYSID(name)]
   END-EXEC.
Deleteq Ts Remove a record from a temporary storage queue
Remover um registro de uma fila de armazenamento temporário

   EXEC CICS
        DELETEQ TS QUEUE(name) [SYSID(name)]
   END-EXEC.
Deq Release a user defined resource
Liberar um recurso definido pelo usuário

   EXEC CICS
        DEQ RESOURCE(data-area) [LENGTH(data-value)] 
                                [LUW| TASK | MAXLIFETIME(data-area)]
   END-EXEC.
Dump Force a storage dump
Forçar um despejo de armazenamento

   EXEC CICS
        DUMP [TRANSACTION] DUMPCODE(name) 
             [FROM(data-area) [LENGTH(data-value) | FLENGTH(data-value)]] 
             [SEGMENTLIST(data-area) LENGTHLIST(data-area) NUMSEGMENTS(data-area)] 
             [COMPLETE] [TRT] [TASK] 
             [STORAGE] 
             [PROGRAM] 
             [TERMINAL] 
             [TABLES] 
             [DCT] 
             [FCT] 
             [PCT] 
             [PPT] 
             [SIT] 
             [TCT]
   END-EXEC.
EndBr Terminate a browse operation
Encerrar uma operação de navegação

   EXEC CICS
        ENDBR { DATASET(name) | FILE(name) } REQID(data-value) [SYSID(name)]
   END-EXEC.
Enq Reserve a user defined resource
Reserve um recurso definido pelo usuário

   EXEC CICS
        ENQ RESOURCE(data-area) [LENGTH(data-value)] 
                                [NOSUSPEND] 
                                [LUW | TASK | MAXLIFETIME(data-area)]
   END-EXEC.
Enter Write a user trace entry into the CICS trace table
Grava uma entrada de rastreio do usuário na tabela de rastreio CICS

   EXEC CICS
        ENTER {TRACENUM(data-value) | TRACEID(data-value) } 
              [FROM(data-area) 
              [FROMLENGTH(data-area)]] 
              [RESOURE(data-area)] 
              [EXCEPTION]
   END-EXEC.
Extract Attach Retrieve values from an ATTACH FMH
Recupere valores de um ATTACH FMH

   EXEC CICS
        EXTRACT ATTACH [ATTACHID(name) | CONVID(name) | SESSION(name)] 
                       [PROCESS(name)] 
                       [RESOURCE(name)] 
                       [RPROCESS(name)] 
                       [RRESOURCE(name)] 
                       [QUEUE(name)] 
                       [IUTYPE(data-value)] 
                       [DATASTR(data-value)] 
                       [RECFM(data-value)]
   END-EXEC.
Extract Attributes Determine the current state of an MRO or APPC conversation
Determine o estado atual de uma conversa MRO ou APPC

   EXEC CICS 
        EXTRACT ATTRIBUTES [CONVID(name) | SESSION(name)] 
                           [STATE(data-value)]
   END-EXEC.
Extract Process Used in a back end program to obtain information passed via the CONNECT PROCESS command in the front end program
Usado em um programa de back end para obter informações passadas por meio do comando CONNECT PROCESS no programa de front end

   EXEC CICS
        EXTRACT PROCESS [CONVID(name) | SESSION(name)] 
                        [PROCNAME(data-value)PROCLENGTH(data-area) [MAXPROCLEN(data-value)]] 
                        [SYNCLEVEL(data-area)] 
                        [PIPLIST(data-area) PIPLENGTH(data-value)]
   END-EXEC.
Formattime Convert time to required format
Converter o tempo para o formato necessário

   EXEC CICS
        FORMATTIME ABSTIME(data-value) [YYDDD(data-area)] 
                                       [YYMMDD(data-area)] 
                                       [YYDDMM(data-area)] 
                                       [DDMMYY(data-area)] 
                                       [MMDDYY(data-area)] 
                                       [DATE(data-area) 
                                       [DATEFORM(data-area)]] 
                                       [DATESEP[(data-value)]] 
                                       [DAYCOUNT(data-area)] 
                                       [DAYOFWEEK(data-area)] 
                                       [DAYOFMONTH(data-area)] 
                                       [MONTHOFYEAR(data-area)] 
                                       [YEAR(data-area)] 
                                       [TIME(data-area) 
                                       [TIMESEP[(data-value)]]]
   END-EXEC.
Free Release a distributed processing session
Liberar uma sessão de processamento distribuído

   EXEC CICS 
        FREE [CONVID(name) | SESSION(name)] 
             [STATE(data-area)]
   END-EXEC.
Freemain Release virtual storage
Liberar armazenamento virtual

   EXEC CICS 
        FREEMAIN { DATA(data-area) | DATAPOINTER(pointer-ref) }
   END-EXEC.
Getmain Aquire virtual storage
Armazenamento virtual Aquire

   EXEC CICS 
        GETMAIN SET(pointer-ref) { LENGTH(data-value) | FLENGTH(data-value) [BELOW] } 
                                 [INITIMG(data-value)] 
                                 [NOSUSPEND] 
                                 [SHARED] {USERKEY | CICSKEY]
   END-EXEC.
Handle Abend Establish abend exits
Estabelecer saídas de abend

   EXEC CICS 
        HANDLE ABEND { PROGRAM(name) | LABEL(label) | CANCEL | RESET }
   END-EXEC.
Handle Aid Establish routines to be invoked when AID keys (enter, pf and pa keys) are detected by a receive map
Estabelece rotinas a serem invocadas quando as teclas AID (teclas enter, pf e pa) são detectadas por um mapa de recepção

   EXEC CICS
        HANDLE AID option [(label)]
   END-EXEC.
Handle Condition Specifies how certain exception conditions should be processed
Especifica como certas condições de exceção devem ser processadas

   EXEC CICS
        HANDLE CONDITION condition-name [(label)]
   END-EXEC.
Ignore Condition Specifies that certain exception conditions should be ignored
Especifica que certas condições de exceção devem ser ignoradas

   EXEC CICS 
        IGNORE CONDITION condition-name ...
   END-EXEC.
Link Invoke a program, return to the next statement after completion
Invoque um programa, volte para a próxima instrução após a conclusão

   EXEC CICS
        LINK PROGRAM(name) [COMMAREA(data-area) 
                           [LENGTH(data-value)] 
                           [DATALENGTH(data-value)]] 
                           [INPUTMSG(data-area) 
                           [INPUTMSGLEN(data-value)]] 
                           [SYSID(name)] 
                           [SYNCONRETURN] 
                           [TRANSID(name)]
   END-EXEC.
Load Retrieve and load an object module and return its length and address
Recupere e carregue um módulo de objeto e retorne seu comprimento e endereço

   EXEC CICS
        LOAD PROGRAM(name) [SET(pointer-ref)] 
                           [LENGTH(data-area) | FLENGTH(data-area)] 
                           [ENTRY(pointer-ref)] 
                           [HOLD]
   END-EXEC.
Pop Handle Restores handle abend, aid, and conditions temporarily suspended by push handle
Restaura o abend, ajuda e condições temporariamente suspensas por push handle

   EXEC CICS 
        POP HANDLE 
   END-EXEC.
Post Create a Timer Event Control Area
Crie uma área de controle de evento de cronômetro

   EXEC CICS
        POST [INTERVAL(hhmmss) | TIME(hhmmss) | AFTER [HOURS(hh)] 
             [MINUTES(mm)] 
             [SECONDS(ss)] | AT 
             [HOURS(hh)] [MINUTES(mm)] 
             [SECONDS(ss)]] SET(pointer-ref) [REQID(name)]
   END-EXEC.
Purge Message delete a logical message before the task terminates
exclua uma mensagem lógica antes que a tarefa termine

   EXEC CICS 
        PURGE MESSAGE 
   END-EXEC.
Push Handle Temporarily suspend handle abend, aid, and conditions
Suspender temporariamente o abend de manipulação, ajuda e condições

   EXEC CICS 
        PUSH HANDLE 
   END-EXEC.
Read Read a record from a file
Ler um registro de um arquivo

   EXEC CICS 
        READ { DATASET(name) | FILE(name) } { INTO(data-area) | SET(pointer-ref) } 
             [LENGTH(data-area)] RIDFLD(data-area) 
             [KEYLENGTH(data-area) 
             [GENERIC]] [SYSID(name)] [RBA | RRN] 
             [GTEQ | EQUAL] 
             [UPDATE]
   END-EXEC.
ReadNext Read the next sequential record from a file
Leia o próximo registro sequencial de um arquivo

   EXEC CICS 
        READNEXT { DATASET(name) | FILE(name) } 
                 { INTO(data-area) | SET(pointer-ref) } 
                 [LENGTH(data-area)] RIDFLD(data-area) 
                 [KEYLENGTH(data-area)] 
                 [SYSID(name)] 
                 [RBA | RRN] 
                 [REQID(data-value)]
   END-EXEC.
ReadPrev read the previous sequential record from a file
ler o registro sequencial anterior de um arquivo

   EXEC CICS
        READPREV { DATASET(name) | FILE(name) } 
                 { INTO(data-area) | SET(pointer-ref) } 
                 [LENGTH(data-area)] RIDFLD(data-area) 
                 [KEYLENGTH(data-area)] 
                 [SYSID(name)] 
                 [RBA | RRN] 
                 [REQID(data-value)]
   END-EXEC.
Readq Td Read a record from a transient data queue
Leia um registro de uma fila de dados transitórios

   EXEC CICS 
        READQ TD QUEUE(name) { INTO(data-area) | SET(pointer-ref) } 
                             [LENGTH(data-area)] 
                             [SYSID(name)] 
                             [NOSUSPEND]
   END-EXEC.
Readq Ts Read a record from a temporary storage queue
Leia um registro de uma fila de armazenamento temporário

   EXEC CICS 
        READQ TS QUEUE(name) { INTO(data-area) | SET(pointer-ref) } 
                             [LENGTH(data-area)] 
                             [NUMITEMS(data-area)] 
                             [ITEM(data-value) | NEXT] 
                             [SYSID(name)]
   END-EXEC.
Receive (distributed) Receive data sent by a remote process
Receber dados enviados por um processo remoto

   EXEC CICS
        RECEIVE [CONVID(name) | SESSION(name)] 
                { INTO(data-area) | SET(pointer-ref) } 
                { LENGTH(data-area) | FLENGTH(data-area) } 
                [MAXLENGTH(data-value) | MAXFLENGTH(data-value)] 
                [NOTRUNCATE] 
                [STATE(data-area)]
   END-EXEC.
Receive (terminal) Retrieve input data from a terminal
Recupere dados de entrada de um terminal

    EXEC CICS 
         RECEIVE { INTO(data-area) | SET(pointer-ref) } 
                 { LENGTH(data-area) | FLENGTH(data-area) } 
                 [MAXLENGTH(data-value) | MAXFLENGTH(data-value)] 
                 [NOTRUNCATE] 
                 [ASIS] 
                 [BUFFER]
    END-EXEC.
Receive Map Receive data from a terminal via BMS
Receber dados de um terminal via BMS

   EXEC CICS 
        RECEIVE MAP(name) [MAPSET(name)] 
                          [INTO(data-area) | SET(pointer-ref)] [ASIS]
   END-EXEC.
Release Free virtual storage acquired via a load command
Armazenamento virtual gratuito adquirido por meio de um comando de carregamento

   EXEC CICS
        RELEASE PROGRAM(name)
   END-EXEC.
ResetBr Re-establish position for a browse
Restabeleça a posição para uma navegação

   EXEC CICS 
        RESETBR { DATASET(name) | FILE(name) } RIDFLD(data-area) 
                [KEYLENGTH(data-value) 
                [GENERIC]] 
                [RBA | RRN] 
                [GTEQ | EQUAL] 
                [REQID(data-value)] 
                [SYSID(name)] 
   END-EXEC.
Retrieve Retrieves data passed to another program via the start command
Recupera os dados passados para outro programa por meio do comando de início

   EXEC CICS 
        RETRIEVE [INTO(data-area) | SET(pointer-ref)] 
                 [LENGTH(data-area)] 
                 [RTRANSID(data-area)] 
                 [RTERMID(data-area)] 
                 [QUEUE(data-area)] 
                 [WAIT]
   END-EXEC.
Return Return to the invoking program
Retorne ao programa de invocação

   EXEC CICS 
        RETURN [TRANSID(name) 
               [COMMAREA(data-area) LENGTH(data-value)]] 
               [IMMEDIATE]] 
               [INPUTMSG(data-area) 
               [INPUTMSGLEN(data-value)]] 
   END-EXEC.
Rewrite Updates a record in a file
Atualiza um registro em um arquivo

   EXEC CICS 
        REWRITE { DATASET(name) | FILE(name) } FROM(data-area) 
                [LENGTH(data-area)] 
                [SYSID(name)]
   END-EXEC.
Route Allows BMS messages to be routed to multiple terminals
Permite que mensagens BMS sejam roteadas para vários terminais

   EXEC CICS
        ROUTE [LIST(data-area)] 
              [OPCLASS(data-area)] 
              [INTERVAL(hhmmss) | AFTER [HOURS(hh)] 
              [MINUTES(mm)] 
              [SECONDS(ss)] | AT [HOURS(hh)]
              [MINUTES(mm)] 
              [SECONDS(ss)]] 
              [ERRTERM{(name)]] 
              [TITLE(data-area)] 
              [REQID(name)] 
              [NLEOM]
   END-EXEC.
Send (distributed) Send data to a remote process
Envie dados para um processo remoto

   EXEC CICS 
        SEND [CONVID(name) | SESSION(name)] 
             [ATTACHID(name)] 
             [FROM(data-area) 
             [LENGTH(data-area) | FLENGTH(data-area)]] 
             [INVITE | LAST] 
             [CONFIRM | WAIT] 
             [STATE(data-area)]
   END-EXEC.
Send (terminal) Send data to a terminal
Envie dados para um terminal

   EXEC CICS
        SEND FROM(data-area) [LENGTH(data-area) | FLENGTH(data-area)] 
                             [DEST(name)] 
                             [WAIT] 
                             [INVITE | LAST] 
                             [DEFRESP] 
                             [STRFIELD] [ERASE] 
                             [CTLCHAR(data-area)]
   END-EXEC.
Send Control Send device control instructions to a terminal
Envie instruções de controle do dispositivo para um terminal

   EXEC CICS
        SEND CONTROL [ERASEAUP | ERASE] 
                     [ALARM] 
                     [FREEKB] 
                     [FRSET] 
                     [CURSOR(data-value)] 
                     [PRINT] 
                     [FORMFEED] 
                     [ACCUM] 
                     [PAGING | TERMINAL 
                     [WAIT] 
                     [LAST]] 
                     [L40 | L64 | L80 | HONEOM] 
                     [REQID(name)] 
   END-EXEC.
Send Map Send data to a terminal via BMS
Envie dados para um terminal via BMS

   EXEC CICS 
        SEND MAP(name) [MAPSET(name)] 
                       [FROM(data-area)] 
                       [LENGTH(data-value)] 
                       [DATAONLY | MAPONLY] 
                       [ERASEAUP | ERASE] 
                       [ALARM] 
                       [FREEKB] 
                       [FRSET] 
                       [CURSOR(data-value)] 
                       [PRINT] 
                       [FORMFEED] 
                       [NLEOM] 
                       [ACCUM] 
                       [PAGING | TERMINAL 
                       [WAIT]] 
                       [LAST] 
                       [L40 | L64 | L80 | HONEOM] 
                       [REQID(name)]
   END-EXEC.
Send Page write the last page of a BMS message to temporary storage
grava a última página de uma mensagem BMS para o armazenamento temporário

   EXEC CICS 
        SEND PAGE [RELEASE 
                  [TRANSID(name)] | RETAIN] 
                  [AUTOPAGE | NOAUTOPAGE] 
                  [OPERPURGE] [TRAILER(data-area)]
   END-EXEC.
Send Text Send data to a terminal letting BMS automatically format the data
Envie dados para um terminal, permitindo que o BMS formate automaticamente os dados

   EXEC CICS
        SEND TEXT FROM(data-area) [LENGTH(data-value)] 
                                  [ERASE] 
                                  [ALARM] 
                                  [FREEKB] 
                                  [CURSOR(data-value)] 
                                  [PRINT] 
                                  [FORMFEED] 
                                  [NLEOM] [ACCUM] 
                                  [PAGING | TERMINAL [WAIT]] 
                                  [LAST] 
                                  [HEADER(data-area)] 
                                  [TRAILER(data-area)] 
                                  [JUSTIFY(datavalue) | JUSFIRST | JUSLAST]
                                  [L40 | L64 | L80 | HONEOM] 
                                  [REQID(name)] 
   END-EXEC.
Send Text Noedit Send data to a terminal similar to terminal control but can direct to temporary storage using paging option
Envie dados para um terminal semelhante ao controle do terminal, mas pode direcionar para o armazenamento temporário usando a opção de paging

   EXEC CICS
        SEND TEXT NOEDIT FROM(data-area) [LENGTH(data-value)] 
                                         [ERASE] 
                                         [ALARM] 
                                         [FREEKB] 
                                         [PRINT] 
                                         [PAGING | TERMINAL 
                                         [WAIT] 
                                         [LAST]] 
                                         [L40 | L64 | L80 | HONEOM] 
                                         [REQID(name)]
   END-EXEC.
Signoff Signs the user off CICS
Desconecta o usuário do CICS

   EXEC CICS
        SIGNOFF
   END-EXEC.
Signon Signs the user on to CICS
Assina o usuário no CICS

   EXEC CICS
        SIGNON USERID(datavalue) [PASSWORD(data-value)] 
                                 [NEWPASSWORD(data-value)] 
                                 [OIDCARD(data-value)] 
                                 [NATLANG(data-value)] 
                                 [natlanginuse(data-area)] 
                                 [ESMRESP(data-area)]
   END-EXEC.
Start Initiate another task after or at a specified time
Inicie outra tarefa após ou em um horário especificado

    EXEC CICS
    START TRANSID(name) [INTERVAL(hhmmss) | TIME(hhmmss) | AFTER [HOURS(hh)] 
                        [MINUTES(mm)] 
                        [SECONDS(ss)] | AT [HOURS(hh)] 
                        [MINUTES(mm)] 
                        [SECONDS(ss)]] 
                        [TERMID(name)] 
                        [SYSID(name)] 
                        [REQID(name)] 
                        [FROM(data-area) 
                        [LENGTH(data-value)]] 
                        [RTRANSID(name)] 
                        [RTERMID(name)] 
                        [QUEUE(name)] 
                        [NOCHECK] 
                        [PROTECT]
   END-EXEC.
StartBr Initiate a browse
Iniciar uma navegação

   EXEC CICS
        STARTBR { DATASET(name) | FILE(name) } RIDFLD(data-area) 
                [KEYLENGTH(data-area) 
                [GENERIC]] 
                [SYSID(name)] 
                [RBA | RRN] 
                [GTEQ | EQUAL] 
                [REQID(data-value)]
   END-EXEC.
Suspend Temporarily return control to CICS
Retorne temporariamente o controle para o CICS

   EXEC CICS
        SUSPEND
   END-EXEC.
SyncpointR Rollback or make permanent updates applied to protected resources
Reverter ou fazer atualizações permanentes aplicadas a recursos protegidos

   EXEC CICS
        SYNCPOINT [ROLLBACK]
   END-EXEC.
Unlock Release a record held by aREAD UPDATE command.
Libere um registro mantido por um comando READ UPDATE.

   EXEC CICS
        UNLOCK { DATASET(name) | FILE(name) } 
               [SYSID(name)] 
   END-EXEC.
Wait Convid Suspend task until accumulated data has been transmitted during an APPC conversation
Suspender a tarefa até que os dados acumulados sejam transmitidos durante uma conversa APPC

   EXEC CICS
        WAIT CONVID(name) [STATE(data-area)]
   END-EXEC.
Wait Event Delay the task until a previously issued POST has expired
Atrase a tarefa até que um POST emitido anteriormente tenha expirado

   EXEC CICS
        WAIT EVENT ECADDR(pointer-value)
   END-EXEC.
Wait Journalnum Synchronizes the current task with a previously written journal entry by suspending the task until the record has been successfully written to the journal file
Sincroniza a tarefa atual com uma entrada de diário gravada anteriormente, suspendendo a tarefa até que o registro tenha sido gravado com sucesso no arquivo de diário

   EXEC CICS
        WAIT JOURNALNUM(data-value) [REQID(data-value)] 
                                    [STARTIO]
   END-EXEC.
Write Write a record to a file
Grave um registro em um arquivo

   EXEC CICS
        WRITE { DATASET(name) | FILE(name) } FROM(data-area) 
              [LENGTH(data-area)] RIDFLD(data-area) 
              [KEYLENGTH(data-area)] 
              [SYSID(name)] [RBA | RRN] 
              [MASSINSERT]
   END-EXEC.
Write Journalnum Write a record to the journal file
Grave um registro no arquivo do diário

   EXEC CICS
        WRITE JOURNALNUM(data-value) JTYPEID(data-value) FROM(data-area) 
                        [LENGTH(data-area)] 
                        [PREFIX(data-value) 
                        [PFXLENG(data-value)]] 
                        [REQID(data-area)] 
                        [WAIT] [STARTIO] 
                        [NOSUSPEND]
   END-EXEC.  
Write Operator Write a message to a system console
Escreva uma mensagem para um console do sistema

   EXEC CICS 
        WRITE OPERATOR TEXT(data-value) [TEXTLENGTH(data-value)] 
                                        [ROUTECODES(data-value) 
                                        [NUMROUTES)data-value)]] 
                                        [ACTION(data-value) | EVENTUAL | IMMEDIATE | CRITICAL | REPLY(data-area) MAXLENGTH(data-value) 
                                        [REPLYLENGTH(data-area)] 
                                        [TIMEOUT(data-value)]]
   END-EXEC.
WRITEQ TD Write a record to a transient data queue
Grave um registro em uma fila de dados transitórios

   EXEC CICS 
        WRITEQ TD QUEUE(name) FROM(data-area) [LENGTH(data-area)] 
                                              [SYSID(name)]
   END-EXEC.
WRITEQ TS Write a record to a temporary storage queue
Grave um registro em uma fila de armazenamento temporário

   EXEC CICS
        WRITEQ TS QUEUE(name) FROM(data-area) [LENGTH(data-area)] 
                                              [ITEM(data-value) [REWRITE]] 
                                              [NUMITEMS(data-area)] 
                                              [SYSID(name)] [MAIN | AUXILIARY] 
                                              [NOSUSPEND]
   END-EXEC.
XCTL Terminate the current program and execute the one specified
Encerra o programa atual e executa o especificado

   EXEC CICS
        XCTL PROGRAM(name) [COMMAREA(data-area) 
                           [LENGTH(data-value)]] 
                           [INPUTMSG(data-area) 
                           [INPUTMSGLEN(data-value)]]
   END-EXEC.

Conclusão

Este tutorial lista todos os comandos CICS importantes usados por programadores.
A referência do Comando CICS é uma parada para todas as suas consultas.



© Copyright IBM Corp. - Última atualização: 27 de junho de 2019