COBOL - Sintaxe dos comandos CICS



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

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.


SIGNOFF
  signs the user off cics

  EXEC CICS SIGNOFF 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.



Volta para o início da página

Volta ao Menu Principal