CURSO_zOS_FUND

1.9 Desplegando o Definiendo los Perfiles de Sesión ( Edit Profile )
Se puede desplegar todo o parte de un Perfil de Sesión, tecleando el siguiente comando:
PROFILE [name] [number)
Donde:
name
Es el nombre del perfil que se desea desplegar
number
Es un numero de líneas de O a 8, por omisión el editor
despliega las primeras 4 líneas al principio del área de datos.
+----------------------------------------------------------------------------------+
EDIT -- -- USERID.PRIVATE.EXEC(PGM8) - 01.03 ---- ------------- - COLUMNS 001 072
COMMAND ===>
SCROLL ===> CSR
****** ***************************** TOP OF DATA ******************************
=PROF> ....EXEC (FIXED - 80) ....RECOVERY ON ....NUMBER ON STO . . . . . . . . . . . . . . . . • . .
=PROF>
=PROF>
=PROF>
=TABS>
=MASK>
=BNDS>
=COLS>
000100
000200
000300
000400 THEN
000500
000600
000700
OOOBOO
000900
001000
001100
001200
.... CAPS ON....HEX OFF....NULLS OFF • . . • TABS OFF....SETUNDO STG..........
....AUTOSAVE ON....AUTONUM OFF • • . . AUTOLIST OFF....STATS ON............. .
....PROFILE UNLOCK . . . • IMACRO NONE . • • . PACK OFF....NOTE ON . . . . . . . . . . . . • . . .
/ * * /
< >
----+---- 1 ----+---- 2 ----+---- 3 ----+----4----+----s----+----6----+ -------- 7 --
/ * REXX * /
ARG FIRST LAST
IF FIRST > LAST
END
END
IF TEMP
THEN
FIRST
ELSE
FIRST
LAST
LAST = TEMP
/ * SET ARGUMENTS * /
/ * IF 'FIRST' IS GREATER * /
/ * THAN 'LAST', * /
! * * ANO /
/ * IF 'TEMP' IS EQUAL * /
/ * TO 'FIRST', THEN * /
/ * SET 'FIRST' EQUAL * /
/ * TO 'LAST', OTHERWISE */
/ * SET 'LAST' EQUAL * /
/ * TO 'TEMP' * /
/* * /
+----------------------------------------------------------------------------------+
Página 87 de 105