SAS(R) 9.1.3 Companion for z/OS

Contents of Member SASEMPLB in ISPPLIB
SAS Interfaces to ISPF and REXX Sample Application 197
%------------------------ EMPLOYEE RECORDS -----------------------------
%COMMAND ====>_ZCMD %
+
+ EMPLOYEE SERIAL: &EMPSER
+
+ EMPLOYEE NAME:%===>_TYPECHG + (NEW, UPDATE, OR DELETE)
+ LAST %===>_LNAME +
+ FIRST %===>_FNAME +
+ INITIAL%===>_I+
+
+ HOME ADDRESS:
+ LINE 1%===>_ADDR1 +
+ LINE 2%===>_ADDR2 +
+ LINE 3%===>_ADDR3 +
+ LINE 4%===>_ADDR4 +
+
+ HOME PHONE:
+ AREA CODE %===>_PHA+
+ LOCAL NUMBER%===>_PHNUM +
+
)INIT
.CURSOR = TYPECHG
IF (&PHA = ’ ’)
&PHA = 914
&TYPECHG = TRANS(&TYPECHG N,NEW U,UPDATE D,DELETE)
)PROC
&TYPECHG = TRUNC (&TYPECHG,1)
IF (&TYPECHG = N)
IF (&CHKTYPE NE N)
.MSG = SASX211
IF (&TYPECHG NE N)
IF (&CHKTYPE = N)
.MSG = SASX212
VER (&LNAME,ALPHA)
VER (&FNAME,ALPHA)
VER (&I,ALPHA)
VER (&PHA,NUM)
VER (&PHNUM,PICT,’NNN-NNNN’)
IF (&TYPECHG = N,U)
VER (&LNAME,NONBLANK,MSG=SASX214)
VER (&FNAME,NONBLANK,MSG=SASX213)
VER (&ADDR1,NONBLANK,MSG=SASX215)
VER (&ADDR2,NONBLANK,MSG=SASX215)
VER (&ADDR3,NONBLANK,MSG=SASX215)
)END