Comandos CICS - www.cadcobol.com

Menu principal [Fechar]

Introdução

Divisões

Identification Division

Environment Division

Data Division

Procedure Division

Comandos CICS

VSAM - File Status

Quadros importantes

SQL - Structured Query Language

Outros programas

Rotinas prontas

Palavras reservadas

Introdução ao Oracle

Sites de busca

Sites interessantes

Meu e-mail

C I C S   Lista dos comandos comuns do CICS e sua sintaxe dentro do COBOL.

  [ ]           indica parâmetros opcionais
  [ | ]        indica a escolha de uma das opções listada (ou nenhuma)
  { | }       indica você tem que especificar uma das opções

abend força uma tarefa atual a ter um término anormalmente

EXEC CICS ABEND [ABCODE(name)] [CANCEL] [NODUMP] END-EXEC.

address   deixa voce ter acesso a informações do sistema armazenadas fora do 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   estabelece uma sessão de processo distribuído com outro sistema

  EXEC CICS ALLOCATE SYSID(name) [PROFILE(name)] [NOQUEUE | NOSUSPEND] [STATE(data-area)]
  END-EXEC.

asktime obtenha o horário e a data atual

EXEC CICS ASKTIME [ABSTIME(data-area)] END-EXEC.

assign obtenha informações de várias áreas de controle do sistema

EXEC CICS ASSIGN option(data-area) END-EXEC.

bif deedit formata dados alfanuméricos em dados numéricos

EXEC CICS BIF DEEDIT FIELD(data-area) [LENGTH(data-value)] END-EXEC.

build attach   cria uma ATTACH FMH usada para iniciar uma transação de fundo 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 cancela o efeito de um comando DELAY, POST ou START

EXEC CICS CANCEL [REQID(name)] [TRANSID(name)] [SYSID(name)] END-EXEC.

change task troca a prioridade de uma tarefa corrente

EXEC CICS CHANGE TASK PRIORITY(data-value) END-EXEC.font>

connect process   inicia um programa de aplicação em um sistema remoto desde que sessão tenha sido LLOCATEd

  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   envia dados para um processo remoto e recebe 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   suspende 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 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 um registro de uma fila de dados transitória

EXEC CICS DELETEQ TD QUEUE(name) [SYSID(name)] END-EXEC.

deleteq ts remove um registro de uma fila de armazenamento temporária

EXEC CICS DELETEQ TS QUEUE(name) [SYSID(name)] END-EXEC.

deq   libera um usuário definido no recurso

  EXEC CICS DEQ RESOURCE(data-area) [LENGTH(data-value)] [LUW | TASK | MAXLIFETIME(data-area)]
  END-EXEC.

dump   força um DUMP de memória

  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

EXEC CICS ENDBR { DATASET(name) | FILE(name) } REQID(data-value) [SYSID(name)] END-EXEC.

enq   reserva um usuário definido no recurso

  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

  EXEC CICS ENTER {TRACENUM(data-value) | TRACEID(data-value) } [FROM(data-area)
  [FROMLENGTH(data-area)]] [RESOURE(data-area)] [EXCEPTION] END-EXEC.

extract attach   recupera valor 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)] br   [DATASTR(data-value)] [RECFM(data-value)] END-EXEC.

extract attributes determina o estado atual de um 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

  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   converte a data para o formato requeirdo

  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 libera uma sessão de um processo distribuído

EXEC CICS FREE [CONVID(name) | SESSION(name)] [STATE(data-area)] END-EXEC.

freemain libera um armazenamento virtual

EXEC CICS FREEMAIN { DATA(data-area) | DATAPOINTER(pointer-ref) } END-EXEC.

getmain   aquire virtual storage

  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

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

EXEC CICS HANDLE AID option [(label)] END-EXEC.

handle condition especifica como certas condições de exceção devem ser processadas

EXEC CICS HANDLE CONDITION condition-name [(label)] END-EXEC.

ignore condition especifica que certas condições de exceção devem ser ignoradas

EXEC CICS IGNORE CONDITION condition-name ... END-EXEC.

link   chama um programa e retorna para o próximo comando depois do término do mesmo

  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   carrega um módulo objeto e retorno o tamanho e o 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

EXEC CICS POP HANDLE END-EXEC.

post   create a Timer Event Control Area

  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 deleta uma mensagem lógica antes da task terminar

EXEC CICS PURGE MESSAGE END-EXEC.

push handle temporarily suspend handle abend, aid, and conditions

EXEC CICS PUSH HANDLE END-EXEC.

read   lê 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   lê a 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   lê o registro anterior (sequencial) 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   lê uma regitro de uma fila da dados passageira

  EXEC CICS READQ TD QUEUE(name) { INTO(data-area) | SET(pointer-ref) } [LENGTH(data-area)]
  [SYSID(name)] [NOSUSPEND] END-EXEC.

readq ts   lê um registro de uma área de memória temporaria

  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)   receba 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

  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   recebe dados desde um terminal via BMS

  EXEC CICS RECEIVE MAP(name) [MAPSET(name)] [INTO(data-area) | SET(pointer-ref)] [ASIS]
  END-EXEC.

release libera a memória vitual requerida via um comando de carga

EXEC CICS RELEASE PROGRAM(name) END-EXEC.

resetbr   re-establish position for a browse

  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

  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   retorna ao programa chamador

  EXEC CICS RETURN [TRANSID(name) [COMMAREA(data-area) LENGTH(data-value)]] [IMMEDIATE]]
  [INPUTMSG(data-area) [INPUTMSGLEN(data-value)]] END-EXEC.

rewrite   altera um registro em um arquivo

  EXEC CICS REWRITE { DATASET(name) | FILE(name) } FROM(data-area) [LENGTH(data-area)]
  [SYSID(name)] END-EXEC.

route   permite que mensagens possam ser enviadas para múltiplos 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)   envia 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)   envia 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   envia instruções de controle de 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 envia 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   grava a última página da mensagem BMS para memória temporaria

  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

  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

  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.

signon   signs the user on to 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   inicia uma outra tarefa apos ou em um tempo 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

  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 retorna temporariamente o controle para o CICS

EXEC CICS SUSPEND END-EXEC.

syncpoint rollback or make permanent updates applied to protected resources

EXEC CICS SYNCPOINT [ROLLBACK] END-EXEC.

unlock libera um registro locado por um comando READ UPDATE

EXEC CICS UNLOCK { DATASET(name) | FILE(name) } [SYSID(name)] END-EXEC.

wait convid suspende um tarefa até que os dados acumulados tenham sido transmitidos durante um transação APPC

EXEC CICS WAIT CONVID(name) [STATE(data-area)] END-EXEC.

wait event delay the task until a previously issued POST has expired

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

  EXEC CICS WAIT JOURNALNUM(data-value) [REQID(data-value)] [STARTIO] END-EXEC.

write   grava 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   grava um registro em um arquivo diario

  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

  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

  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

  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   termina o programa atual e executa um outro espeficiado

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