issac1029
Intermediate
Joined: 10 Dec 2005
Posts: 159
Topics: 75
|
 Posted: Mon Sep 22, 2008 4:18 am Post subject: One variable not work on ISPF DIALOG |
 |
|
One of the field 'I' in BOLD is not working, Please see below code. When I enter a 'Y' on screen, Message xxx000 still works.... Can anybody see an obvious mistake here? Another clue is even I put the statement 'IF (&I = 'N')' to the last place after 'K', ('I') Still not work.
| Code: | )ATTR
+ TYPE(TEXT) COLOR(BLUE) SKIP(ON)
? TYPE(TEXT) COLOR(WHITE)
| TYPE(OUTPUT) COLOR(YELLOW)
$ TYPE(OUTPUT) COLOR(RED) HILITE(BLINK)
_ TYPE(INPUT) COLOR(RED)
)BODY expand(##)
+#*#
+#*# ?ssss EXTRACT TO xxx +#*#
+#*#
+
+ Command ===>_ZCMD
+
+ Spec Keys File Name: _FILENAME +
+
+ Send to: (Input Y for the ones you want)...
+
+ Production Pre-Production
+ xxxxx1: _N+ _O+
+ xxxxx1: _E+ _F+
+ xxxxx1: _G+ _H+
+ xxxxx1: _L+ _M+
+ xxxxx1: _P+ _Q+
+
+ xxxxx1: _A+ _W+
+ xxxxx1: _B+ _V+
+ xxxxx1: _C+ _K+
+ xxxxx1: _D+ [b]_I+[/b]
+
+# #?PF1+Help?PF3+Exit# #
)INIT
&ZCMD = ' '
&N = 'N'
&E = 'N'
&L = 'N'
&P = 'N'
&G = 'N'
&O = 'N'
&F = 'N'
&M = 'N'
&Q = 'N'
&H = 'N'
&A = 'N'
&B = 'N'
&C = 'N'
&D = 'N'
&W = 'N'
&V = 'N'
&K = 'N'
&I = 'N'
IF (&FILENAME = ' ')
&FILENAME = 'xxxx.xxx.xx.xx.x.xx'
.HELP = xxxxMHLP
.CURSOR = FILENAME
)PROC
VER(&FILENAME,NB,MSG=xxx001)
VER(&N,NB,LIST,Y,N,MSG=xxx005)
VER(&E,NB,LIST,Y,N,MSG=xxx005)
VER(&L,NB,LIST,Y,N,MSG=xxx005)
VER(&P,NB,LIST,Y,N,MSG=xxx005)
VER(&G,NB,LIST,Y,N,MSG=xxx005)
VER(&O,NB,LIST,Y,N,MSG=xxx005)
VER(&F,NB,LIST,Y,N,MSG=xxx005)
VER(&M,NB,LIST,Y,N,MSG=xxx005)
VER(&Q,NB,LIST,Y,N,MSG=xxx005)
VER(&H,NB,LIST,Y,N,MSG=xxx005)
VER(&A,NB,LIST,Y,N,MSG=xxx005)
VER(&B,NB,LIST,Y,N,MSG=xxx005)
VER(&C,NB,LIST,Y,N,MSG=xxx005)
VER(&D,NB,LIST,Y,N,MSG=xxx005)
VER(&W,NB,LIST,Y,N,MSG=xxx005)
VER(&V,NB,LIST,Y,N,MSG=xxx005)
VER(&K,NB,LIST,Y,N,MSG=xxx005)
VER(&I,NB,LIST,Y,N,MSG=xxx005)
IF (&N = 'N')
IF (&E = 'N')
IF (&L = 'N')
IF (&P = 'N')
IF (&O = 'N')
IF (&F = 'N')
IF (&M = 'N')
IF (&Q = 'N')
IF (&G = 'N')
IF (&H = 'N')
IF (&A = 'N')
IF (&B = 'N')
IF (&C = 'N')
IF (&D = 'N')
IF (&W = 'N')
IF (&V = 'N')
[b]IF (&I = 'N')[/b] IF (&K = 'N')
.CURSOR = N
.MSG = xxx000
)END |
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
