ROSCOE - Commands

ROSCOE

Main Commands:

AWS:

THIS IS Check available space on AWS.

I Inserir novo texto na AWS.

<F4> Return to the ROSLIB member list
<F7> page up
<F8> page down
<F10> Screen to the right
<F11> Screen to the left
<Home>Go to command line
<shift> <F12> Retrieve list of executed commands
<F6> Repeat the last executed command
M<F7> Top
M<F8> Bottom

Split screen:

F1 Screen Split
<F2> Switch between screens in the case of split
<F3> Exit the screen where the cursor is positioned.

XCopy Copy from a screen split

C "member" p q o (without split)
C p q o (with split)
Where: p - starting line, q - ending line, o - line from where it will be inserted

Note: On screen 2, the member from which something is to be copied must be in 'Fetch' mode.

Editor:

I Insert lines
I (n) insert n lines
R Repeat line
RR Repeat block of lines
C Copy line
CC Mark the lines to be copied
D Exclude lines
DD Mark rows to be deleted

DELX Delete while keeping the line that has the string
DELX /string/
DELS Delete the line that contains the string
DELS /string/

A After - insert the block marked by CC after

B Before - insert the block marked by CC before

MOVE Move lines within the member

MOVE p q o
p - initial line; q - final line;
or line after.

EDIT Replace string

EDIT s e /string1/string2/ p q
s - starting column, e - ending column;

1
ROSCOE - Commands
string1 – string a ser substituída, string2 – string que substituirá;
p - starting line, q - ending line.

FILL Fill all or a specific column with a specific string.

FILL s e /string/ p q
s - initial column, e - final column;
string - group of characters that will be used;
p - starting line, q - ending line.

LSHIFT positions a line or block of lines to the left or right.

LSHIFT n p q r s
n – number of characters;
p - starting line, q - ending line;
r - starting column, s - ending column

) Position to the right

)
)n
( position to the left

)) Position block to the right

))
)) n
(( Position block to the left

TJ Concatenate line in the editor

TS Separate line in the editor

RESET Writing reset in the editor line restores the line to the position before changes.

NC Generate comment box within the source.

A Attach - consult only (similar to Browse)

Attach or A "Member's name"

FA Fetch Attach – Member Editing

FA "Member's Name"

Where

List, A (Attach)
C L R (Personal Lib) C J R (Job log) C D R (Data Set)
A

U * or UU Save edited member

AA Go back to the member that is being edited, if it is necessary to exit to list, consult jobs, etc.

DEL AWS Clean

S <name> Save member with new name.

Care: If you are in the editor and enter ENDEVOR, AWS is clean. So save the changes if there are any.
necessity.

Shortcuts:

VERPRD Copy of production library sources

GREEN List of DCLGEN (table aliases)
VO Join the Endeavor

2
ROSCOE - Commands
Auxiliary Commands:

AJ Details of the last job executed by the user.

DJN Delete execution job

Caution: When deleting the execution spool of a Job, never issue the command D J (Delete Job), because this
set up to delete and print.

OREX Job Execution

Change the number of lines and CPU time parameters

<F6> Save and Submit the JOB for execution.

DIR Displays the area of ROSLIB

DIS Display user job list

DIS + argument List all jobs with the argument
Ex: DIS AVP* - List all jobs that start with AVP

<F6> Refresh (repeat command)

AJ Attach the last job

JJ List Jobs
AJ * Turnaround in the Job

Inside the Job:

Stay List the job files;
<F4> and <F5> Alternate between job files;

Data Set (Sequential Files)

AD Data Set - Sequential files

A
[Link].I85+ {to list the sequences}
In the list <F5> Dataset Details
<F4> Sai da lista

AL Aloca Data Set

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

EXP Export Data Set {Save a Data Set}

EXP DSN= {data set name}
EXP DSN={data set name} disp=mod (Saves without deleting the content, appends at the end)

To display files with more than 30,000 lines (AWS limit):

Execute the command:

CJ 1 30000 R (Brings from 1aa 30000aline)

<enter>
A
<enter>
Save in the Data Set:
EXP DSN= {Dataset Name}

CJ 30001 ,, R (From 30000 until the end, if it does not exceed 60000)

Save in the Data Set:

EXP DSN={Data Set Name} DISP=MOD

3
ROSCOE - Commands
Recover removed data set from disk:
Call macro: [Link]
Enter the name of the Data Set
It's going to generate a job

Auxiliary Jobs:

FTPAB Executes FTP from High to Low Data Set

FTPBA Executes FTP from Low to High Data Set

Book’s (XPVPX999):

PRODUCTION / ROTSAS / SOUTH

Type: Copybook

Compile program:

No Endeavor:
3 - Batch;
1 – Build SCL;
Member: ADDXXXX, where ADD – Add and XXXX name of the prog or job;

2 – Add / Update
Data Set Name: ROSCOE
Member: AVPXXXX (Member to be compiled)

Important: For members accessing DB2, do not forget to create BIND.

Programs without access to DB2: Proc Grp:

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

Programs that access DB2: Proc Grp:

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

Compilation parameters:
No COBOL, before the IDENTIFICATION DIVISION
CBL TRUNC(BIN): to accept more than 9999 in SMALIINT fields
TEST(NONE): to accept the clause WITH DEBUGGING MODE

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

See Compilation Errors:

Incl / IGY/ List the lines with errors

THE F Last File – goes to the last file

Move from stage 1 to 2:

No Endeavor:
3 – Batch
Create card MOVXXXX
5 - Move stage 1 to 2
'O' (Move)

Passage for Ratification (Acceptance):

4
ROSCOE - Commands
Request via email for the approval group #homolog
"Please submit the prog XXXXXX for approval in STG2/AVP/AVP."

Creation of Queries:

Dsntep2 (list available options);

See which of the options meets;

Create query in the editor;

Dsntep2 n (where n is the number of the desired option listed above);

Will trigger a job 'OREX', set the CPU time parameters and number of pages;

Creation of Queries in production (HOMOLOG):

Enter the Acceptance ROSCOE - ROSACT;

In Data set:
[Link] (AVP+) - list all members

Send members from one AWS user to another:

FETCH / ATTACH to the member;

SEND AWS KEY={User code – MUX0304} or

PFX={Prefixo do usuário – I85}

Send message to user:

SEND PFX={User prefix – I85} 'message message message'

Change member sharing in the Lib:

DIR - list of library members

In the ATR column, change RES to SHR and vice versa.

Create 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

Create everything as if it were a compilation;

Only the transfer for approval that requires filling out a form;

Application to view table data:

5
ROSCOE - Commands
Type in the command line:
[Link]

Application to view the list of Process group:

NDVRPROC

Enter the CICSR1D1

Clear the screen
Issue the command CEMT I PROG(PROGRAMNAME)
If it appearsSTATUS: ,RESULTS - OVERTYPE TO MODIFY
,Prog(NAMEOFOPERATOR), NOT FOUND
It is because the program does not exist yet and registration can be requested.

TO EXIT CICS: CLEAR THE SCREEN;

CESF LOGOFF

Change from Low to Upper Case in AWS:

SET MODE X – Low Case

SET MODE B – UPPER CASE

Using the LIKE clause in COBOL:

Fill the rest of the string with % (percent symbol)

Ex:
If the working field has 10 bytes, its content should be:
JOAO

Printer for manual printing (Roscoe) – N19 (Subbasement S2)

Return Code no JCL

To change in Cobol:
Move9 to RETURN-CODE

No JCL:

Define the parameter CC(NO)

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

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

To release sysout of the job that was uploaded in the Backup in CTRL-D
R in front of the JOB
Confirm: Y
RST0365C (for sysout of JOB)
RST0060C (for report)

6
ROSCOE - Commands

Perform file deletion that was uploaded on tape - Backup

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

Source file
Destination file with the same LRECL (Size)

Submit via Orex, changing the parameters of

O R E X - S U L A M E R I C A S E G U R O S User = MUX0304
---------------------------------------------------------------------------
NOME DO JOB ........ AVPI8501 MEMBRO OU AWS .... AWS
SYSTEM ACRONYM ... AVP COST UNIT . 28806
REPROCESABLE ...... Y (N/S) EXECUTION CLASS .. X
MSGCLASS ........... X TEMPO DE CPU ..... 10S
UNIT. 3420/3480 .... 01 SCRATCH TAPE .... 00
DESTINATION SYSOUT ..... TOTAL LINES .. 9999
EXECUTION TYPE ...... NORMAL RESTART ..........
EXECUTION SYSTEM..... 1 1=RIO1 2=RIO2 3=ACTE

RFP to request services in the Homologation environment:

[Link]

Parameters in the submission card for executions (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

To direct to a specific group profile:

7
ROSCOE - Commands

Add the parameter GROUP = GAVP in the JOB statement definition line

Bind for programs with Dynamic SQL:

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]

Connected to [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.
User ([Link]:(none)): UEHARA
331 Send password please.
Password:
230 UEHARA is logged on. Working directory is "/u".
ftp> GET
Remote file '[Link]'
Local file D:[Link]
200 Port request OK.
125 Sending data set [Link] FIXrecfm 100
250 Transfer completed successfully.
ftp: 725730 bytes received in 2.09 seconds 346.74 Kbytes/s.
ftp>

IP MAINFRAME:[Link]/ S00MFP02

Test Manual Library:

[Link]