evanswillo
New User
Joined: 28 Jun 2007 Posts: 23 Location: Bmth England
|
|
|
|
Hi,
This is the panel, I think I just found the answer.
)ATTR
$ TYPE(OUTPUT) INTENS(HIGH) COLOR(RED)
_ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT)
)BODY WINDOW(45,2)
ENTER SCALNAME _ZCALNAME
)INIT
&ZCALNAME = ' '
)REINIT
REFRESH(*)
)PROC
VER (&ZCALNAME,LIST,AD,AL,BA,BC,BH,BO,BP,BR,DU,EE,EL,EM,EN,EO,ES,
FH,FR,FT,GC,GI,HH,HK,HS,IM,IS,JD,JF,JH,KN,KR,
KS,KX,KY,MC,MD,MI,MO,M0,M1,M2,M3,M4,NA,NH,NS,
NX,NY,OH,PA,PH,PP,PR,SC,SH,SP,SS,SY,TD,TF,TH,
TK,TO,T7,T9,VI,VY,WD,WS,ZD,ZF,ZH,ZJ,ZK,ZL,ZT,
ZU)
)END |
|