REXX to interpret DBRM - Panel and Message

Ron Root

REXX to interpret DBRM - Panel and Message
PLIB:
)ATTR
@ TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) HILITE(REVERSE)
# TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(GREEN)
~ TYPE(OUTPUT) INTENS(HIGH) SKIP(ON) COLOR(RED) CAPS(OFF)
* TYPE(OUTPUT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) CAPS(OFF)
¬ TYPE(OUTPUT) INTENS(LOW) SKIP(ON) COLOR(WHITE) CAPS(OFF) HILITE(USCORE
_ TYPE(INPUT) INTENS(LOW) CAPS(ON) COLOR(RED) HILITE(USCORE)
)BODY EXPAND({}) WINDOW(65,8) SMSG(MSG) LMSG(MSG)
@{ }D B 2 D B R M M A P P E R{ }
+
*MSG +
+
#DBRM Library:_DBRMLIB +
#DBRM Member :_DBRMMEM +
+
*MSG2 +
)INIT
.CURSOR = DBRMLIB
VGET (DBRMLIB, DBRMMEM) PROFILE
)PROC
VER (&DBRMLIB,NONBLANK,MSG=DBRMS000)
VER (&DBRMLIB,DSNAME,MSG=DBRMS001)
VER (&DBRMMEM,NONBLANK,MSG=DBRMS002)
VER (&DBRMMEM,NAME,MSG=DBRMS001)
)ATTR
@ TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) HILITE(REVERSE)
# TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(GREEN)
~ TYPE(OUTPUT) INTENS(HIGH) SKIP(ON) COLOR(RED) CAPS(OFF)
* TYPE(OUTPUT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW) CAPS(OFF)
¬ TYPE(OUTPUT) INTENS(LOW) SKIP(ON) COLOR(WHITE) CAPS(OFF) HILITE(USCORE
_ TYPE(INPUT) INTENS(LOW) CAPS(ON) COLOR(RED) HILITE(USCORE)
)BODY EXPAND({}) WINDOW(65,8) SMSG(MSG) LMSG(MSG)
@{ }D B 2 D B R M M A P P E R{ }
+
*MSG +
+
#DBRM Library:_DBRMLIB +
#DBRM Member :_DBRMMEM +
+
*MSG2 +
)INIT
.CURSOR = DBRMLIB
VGET (DBRMLIB, DBRMMEM) PROFILE
)PROC
VER (&DBRMLIB,NONBLANK,MSG=DBRMS000)
VER (&DBRMLIB,DSNAME,MSG=DBRMS001)
VER (&DBRMMEM,NONBLANK,MSG=DBRMS002)
VER (&DBRMMEM,NAME,MSG=DBRMS001)
VPUT (DBRMLIB, DBRMMEM) PROFILE
)END

MLIB:
DBRMS000 'Enter DBRM Library' .ALARM=YES
'Please enter DBRM Library Name full-qualified and no quote'
DBRMS001 'Invalid Name' .ALARM=YES
'Please enter a valid name'
DBRMS002 'Enter DBRM Member' .ALARM=YES
'Please enter DBRM Member Name'
DBRMS003 'Dataset not found' .ALARM=YES
'Either library or member name does not
exist'

---------------------------------------------------------------------------------
Welcome to the IDUG DB2-L list. To unsubscribe, go to the archives and home page at http://www.idugdb2-l.org/archives/db2-l.html. From that page select "Join or Leave the list". The IDUG DB2-L FAQ is at http://www.idugdb2-l.org. The IDUG List Admins can be reached at [login to unmask email] Find out the latest on IDUG conferences at http://conferences.idug.org/index.cfm