ROSCOE - Comandos

ROSCOE

Principais Comandos:

AWS:

STA SES Verifica espaço disponível na AWS.

I Inserir novo texto na AWS.

<F4> Volta para Lista de membros da ROSLIB
<F7> page up
<F8> page down
<F10> Tela para direita
<F11> Tela para esquerda
<Home>Vai para linha de comando
<shift> <F12> Recupera lista de comandos executados
<F6> Repete ultimo comando executado
M<F7> Top
M<F8> Bottom

Split de tela:

<F1> Split de Tela

<F2> Alternar entre telas no caso de split
<F3> Sai da tela onde o cursor estiver posicionado.

XCopy Copiar de um split de tela

C “membro” p q o (sem split)
C p q o (com split)
Onde: p – linha inicial, q - linha final, o – linha a partir de onde será inserido

Nota: Na tela 2, o membro do qual se deseja copiar algo, deverá estar em modo “Fetch”.

Editor:

I Insere linhas
I (n) insere n linhas
R Repete linha
RR Repete bloco de linhas
C Copia linha
CC Marca bloco de linhas a serem copiadas
D Exclui linhas
DD Marca bloco de linhas a serem excluídas

DELX Deleta mantendo a linha que tem a string

DELX /string/
DELS Deleta excluido a linha que contém a string
DELS /string/

A After – insere o bloco marcado por CC após

B Before – insere o bloco marcado por CC antes

MOVE Mover linhas dentro do membro

MOVE p q o
p – linhas inicial; q – linha final;
o linha após.

EDIT Substitui string

EDIT s e /string1/string2/ p q
s – coluna inicial , e – coluna final;

1
ROSCOE - Comandos
string1 – string a ser substituída, string2 – string que substituirá;
p – linha inicial , q – linha final.

FILL Preenche todas ou determinada coluna com determinado string.

FILL s e /string/ p q
s – coluna inicial , e – coluna final;
string – grupo de caracteres que será usado;
p – linha inicial , q – linha final.

LSHIFT posiciona linha ou bloco de linhas para esquerda ou direita.

LSHIFT n p q r s
n – nro de caracteres;
p – linha inicial, q – linha final;
r – coluna inicial, s – coluna final

) Posiciona para direita

)
)n
( posiciona para esquerda

)) Posiciona bloco para direita

))
)) n
(( Posiciona bloco para esquerda

TJ Concatena linha no editor

TS Separa linha no editor

RESET Escrever reset na linha do editor, restaura a linha na posição antes das alterações

NC Gera caixa de comentários dentro do fonte.

A Attach – somente consulta (similar Browse)

Attach ou A “Nome do membro”

FA Fetch Attach – Edição de membro

FA “Nome do membro”

Ou

Listar, A (Atach)
C L R (Personal Lib) C J R (Job log) C D R (Data Set)
A

U * ou UU Salvar membro editado

AA Volta ao membro que esta sendo editado, caso seja necessário sair para listar, consultar jobs, etc.

DEL Limpa AWS

S <nome> Salva membro com novo nome.

Cuidado: Se estiver no editor e entrar no ENDEVOR, a AWS é limpa. Portanto salve as alterações caso haja
necessidade.

Atalhos:

VERPRD Copia de fontes da lib de produção

VERT Lista de DCLGEN (alias das tabelas)
VO Entra no Endevor

2
ROSCOE - Comandos
Comandos Auxiliares:

AJ Detalhes do último Job executado pelo usuário.

DJN Deletar job de execução

Cuidado: Quando for excluir o spool de execução de um Job, nunca dar o comando D J (Delete Job), pois esta
configurado para deletar e imprimir.

OREX Execução de JOB

Alterar parâmetros de nro de linhas e tempo de CPU

<F6> Salva e Submete o JOB para execução.

DIR Exibe a área da ROSLIB

DIS Exibe lista de jobs do usuario

DIS + argumento Lista todos os jobs com o argumento
Ex: DIS AVP* - Lista todos os jobs que comecem com AVP

<F6> Refresh (repete comando)

AJ Attach o ultimo job

JJ Lista Jobs
AJ * Volta no Job

Dentro do Job:
Sta Lista os files do Job;
<F4> e <F5> Alterna entre files do Job;

Data Set (Arquivos sequenciais)

AD Data Set - Arquivos sequenciais

A
[Link].I85+ {para listar os sequencias}
Na lista <F5> Detalhes dos Data set
<F4> Sai da lista

AL Aloca Data Set

Parâmetros : Units Primary=1000 / Secondary=10 / LRECL= Record lenght

EXP Export Data Set {Salvar um Data Set}

EXP DSN= {nome do Data Set}
EXP DSN= {nome do Data Set} disp=mod (Salva sem excluir o conteudo, append no final)

Para trazer na tela arquivos com mais de 30.000 linha (limite da AWS):

Executar o comando:

CJ 1 30000 R (Traz da 1a a 30000a linha)

<enter>
A
<enter>
Salvar no Data Set:
EXP DSN= {Nome do Data Set}

CJ 30001 ,, R (Da 30000 até o fim, caso não tenha mais de 60000)

Salvar no Data Set:

EXP DSN={Nome do Data Set} DISP=MOD

3
ROSCOE - Comandos
Recuperar Data Set removido do disco:
Chamar macro: [Link]
Colocar o nome do Data Set
Vai gerar um job

Jobs Auxiliares:

FTPAB Executa FTP de Data Set de Alta para Baixa

FTPBA Executa FTP de Data Set de Baixa para Alta

Book’s (XPVPX999):

PRODUCAO / ROTSAS / SUL

Tipo: Copybook

Compilar programa:

No Endevor:
3 – Batch;
1 – Build SCL;
Member: ADDXXXX, onde ADD – Adicionar e XXXX nome do prog ou job;

2 – Add / Update
Data Set Name: ROSCOE
Member: AVPXXXX (Membro que será compilado)

Importante: Para membros que acessam DB2 não esquecer de criar BIND.

Programas sem acesso ao DB2: Proc Grp:

CMVNBL49 (Cobol)
CMVNCL49 (CICs)
CMVNAL49 (Cobol / CICs)

Programas que acessam o DB2: Proc Grp:

CMV2BL49 (Cobol)
CMV2CL49 (CICs)
CMV2AL49 (Cobol / CICs)

Parâmetros de compilação:
No COBOL, antes da IDENTIFICATION DIVISION
CBL TRUNC(BIN) : para aceitar + de 9999 em campos SMALIINT
TEST(NONE): para aceitar a cláusula WITH DEBUGGING MODE

Ex:
CBL TRUNC(BIN), TEST(NONE)
IDENTIFICATION DIVISION.

Ver erros de Compilação:

Incl / IGY/ Lista as linhas com erro

LAS F Last File – vai para o ultimo file

Mover de estagio 1 para 2:

No Endevor:
3 – Batch
Criar cartão MOVXXXX
5 – Move estagio 1 para 2
‘O’ (Move)

Passagem para Homologação (Aceite):

4
ROSCOE - Comandos
Solicitar via e-mail para o grupo de homologação #homolog
“Favor passar para homologação o prog XXXXXX de STG2/AVP/AVP.

Criação de Queries:

Dsntep2 (listar as opções disponiveís);

Ver qual das opções atende;

Criar query no editor;

Dsntep2 n (onde n é o nro da opção desejada listada anteriormente);

Vai disparar um job “OREX”, definir os parâmetros de tempo de CPU e nro páginas;

Criação de Queries na produção (HOMOLOG):

Entrar no ROSCOE de Aceite – ROSACT;

Em Data set:
[Link] (AVP+) – lista todos os membros

Enviar membros de uma AWS de um user para outro:

FETCH / ATACH no membro;

SEND AWS KEY={Código do usuário – MUX0304} ou

PFX={Prefixo do usuário – I85}

Enviar mensagem para usuario:

SEND PFX={Prefixo do usuário – I85} ‘mensagem mensagem mensagem’

Alterar compartilhamento de membro na Lib:

DIR – lista membros da lib

Na coluna ATR, alterar de RES para SHR e vice-versa.

Criar BIND:

------------------- Display Elements/Component Lists ------------------------

OPTION ===>

blank - Display selection list B - Browse element current level

S - Display summary of levels C - Display changes current level
M - Display element master info H - Display history current level

Enter SX, BX, CX or HX to display component list information

FROM ENDEVOR: LIST OPTIONS:

ENVIRONMENT ===> DESENV DISPLAY LIST ===> Y (Y/N)
SYSTEM ===> ROTSAS WHERE CCID EQ ===>
SUBSYSTEM ===> BIN WHERE PROC GRP EQ ===>
ELEMENT ===> {Nome do Membro} BYPASS SYS/SBS SEL LIST ===> N
TYPE ===> BINDCARD
STAGE ===> 1 - DSV 2 - TST

Criar tudo como se fosse compilação;

Somente a transferência para homologação que necessita de preenchimento de formulário;

Aplicativo para ver dados de tabelas:

5
ROSCOE - Comandos
Digitar na linha de comando:
[Link]

Aplicativo para ver lista de Process group:

NDVRPROC

Entrar no CICSR1D1
Limpar a tela
Emitir o comando CEMT I PROG(NOMEDOPROGRAMA)
Se aparecer STATUS: ,RESULTS - OVERTYPE TO MODIFY
,Prog(NOMEDOPR), , , , , , , , , ,NOT FOUND
é porque o programa ainda não existe e o cadastramento pode ser solicitado.

PARA SAIR DO CICS: LIMPAR A TELA;

CESF LOGOFF

Mudar de Low para Upper Case na AWS:

SET MODE X – Low Case

SET MODE B – Upper Case

Utilizar a cláusula LIKE dentro do COBOL:

Preencher todo o restante da string com % (simbolo de percentual)

Ex:
Se o campo da working tiver 10 bytes, seu conteudo deverá ser:
JOAO%%%%%%

Impressora para impressão de manual (Roscoe) – N19 (Subsolo S2)

Return Code no JCL

Para alterar no Cobol:

Move 9 to RETURN-CODE

No JCL:

Definir o parâmetro CC(NO)

//AVP3085 EXEC PGM=IKJEFT1B,DYNAMNBR=20,REGION=0K,

// PARM='%DB2EXEC1 PROG(AVP3085) SYSTEM(DSNP) CC(NO)'

Para liberar sysout de job que subiu no Back-up no CTRL-D

R na frente do JOB
Confirm : Y
Data: RST0365C (para sysout de JOB)
RST0060C (para relatorio)

6
ROSCOE - Comandos

Efetuar baixa de arquivo que subiu em fita – Back-up

//DISCKART EXEC PGM=SULCOPY,PARM=N

//SYSPRINT DD SYSOUT=*
//IN01 DD DSN=[Link].D050603,DISP=SHR
//OUT01 DD DSN=[Link].D050603,UNIT=SYSDA,
// DISP=(,CATLG,DELETE),SPACE=(TRK,(400,4),RLSE),
// DCB=(RECFM=FB,LRECL=150,DSORG=PS)

Arquivo origem
Arquivo destino com o mesmo LRECL (Tamanho)

Submeter via Orex, alterando os parâmetros de

O R E X - S U L A M E R I C A S E G U R O S Usuario = MUX0304
---------------------------------------------------------------------------
NOME DO JOB ........ AVPI8501 MEMBRO OU AWS .... AWS
SIGLA DO SISTEMA ... AVP UNIDADE DE CUSTO . 28806
REPROCESSAVEL ...... S (N/S) CLASSE EXECUCAO .. X
MSGCLASS ........... X TEMPO DE CPU ..... 10S
UNID. 3420/3480 .... 01 FITAS SCRATCH .... 00
DESTINO SYSOUT ..... TOTAL DE LINHAS .. 9999
TIPO EXECUCAO ...... NORMAL RESTART ..........
SISTEMA DE EXEC..... 1 1=RIO1 2=RIO2 3=ACTE

RPF para solicitar serviços em ambiente de Homologação:

[Link]

Parâmetros no cartão de submissão de execuções (ENDEVOR):

OPTION ===>

1 BUILD SCL - Build batch SCL actions

2 EDIT - Edit request data set
3 SUBMIT - Submit job for batch processing
4 VALIDATE - Not available on ROSCOE
5 BUILD JCL - Enter additional JCL to be included with the job

REQUEST DATA SET:

DSNAME ===> ROSCOE
MEMBER ===>

APPEND ===> N (Y/N)

INCLUDE JCL ===> N (Y/N)

JOB STATEMENT INFORMATION:

===> //AVPI85XX JOB (AVP,99527),'99527-MAURO-BT/230-2',
===> // NOTIFY=ROSPI85,MSGCLASS=X,CLASS=R, GROUP = GAVP
===> /*JOBPARM LINES=9999,SYSAFF=RIO2

Para direcionar para um determinado group profile:

7
ROSCOE - Comandos

Adicionar o parâmetro GROUP = GAVP na linha de definição do JOB statement information

Bind para programas com SQL Dinâmico:

BIND PLAN(AVP9500) -
PKLIST(AVP0000.*,VAGEN.*) -
ACT(REP) ISO(CS) RETAIN -
RELEASE(COMMIT) VALIDATE (BIND)

BIND PACKAGE(AVP0000) MEMBER(AVP9500) -

ACTION(REPLACE) VALIDATE(BIND) ISOLATION(CS) -
RELEASE(COMMIT) EXPLAIN(NO) -
CURRENTDATA(NO) DEGREE(1) FLAG(I) -
DYNAMICRULES(BIND)

FTP via DOS:

C:\Documents and Settings\uehara>FTP [Link]

Conectado a [Link].
220-FTPD1 IBM FTP CS V1R4 at [Link], 17:38:19 on 2006-05-22.
220 Connection will close if idle for more than 5 minutes.
Usuário ([Link]:(none)): UEHARA
331 Send password please.
Senha:
230 UEHARA is logged on. Working directory is "/u".
ftp> GET
Arquivo remoto '[Link]'
Arquivo local D:[Link]
200 Port request OK.
125 Sending data set [Link] FIXrecfm 100
250 Transfer completed successfully.
ftp: 725730 bytes recebidos em 2,09Segundos 346,74Kbytes/s.
ftp>

IP MAINFRAME: [Link] / S00MFP02

Biblioteca de Manuais de Teste:

[Link]