shrivatsa
Warnings : 1
Active User
Joined: 17 Mar 2006
Posts: 174
Location: Bangalore
|
|
|
|
Hi All,
I am running a code the part of code i am giving below
It is giving error IF STMT CONTAINS NO EXPRESSION OR THEN KEYWORD
In all if statement I am getting this error..
could anyone help me
| Code: |
IF (&PDS = Y)
&MENU= '#B-Browse# V-View# E-Edit# M-Memlist# +
D-Dslist# Z-Compress# I-Info# P-PDS#X-Exit#'
VGET (XOPT XN XMEM XODSN) PROFILE
VGET (XDSN1 XDSN2 XDSN3 XDSN4 XDSN5) PROFILE
VGET (XDSN6 XDSN7 XDSN8 XDSN9 XDSN10) PROFILE
VGET (XDSN11 XDSN12 XDSN13 XDSN14 XDSN15) PROFILE
VGET (XDSN16 XDSN17 XDSN18 XDSN19 XDSN20) PROFILE
VGET (XDSN21 XDSN22 XDSN23 XDSN24 XDSN25) PROFILE
VGET (XDSN26 XDSN27 XDSN28 XDSN29 XDSN30) PROFILE
VGET (XDSN31 XDSN32 XDSN33 XDSN34 XDSN35) PROFILE
VGET (XDSN36 XDSN37 XDSN38 XDSN39 XDSN40) PROFILE
VGET (XDSN41 XDSN42 XDSN43 XDSN44 XDSN45) PROFILE
VGET (XDSN46 XDSN47 XDSN48 XDSN49 XDSN50) PROFILE
VGET (XDSN51 XDSN52 XDSN53 XDSN54 XDSN55) PROFILE
VGET (XDSN56 XDSN57 XDSN58 XDSN59 XDSN60) PROFILE
VGET (XDSN61 XDSN62 XDSN63 XDSN64 XDSN65) PROFILE
VGET (XDSN66 XDSN67 XDSN68 XDSN69 XDSN70) PROFILE
VGET (XDSN71 XDSN72 XDSN73 XDSN74 XDSN75) PROFILE
VGET (XDSN76 XDSN77 XDSN78 XDSN79 XDSN80) PROFILE
VGET (XDSN81 XDSN82 XDSN83 XDSN84 XDSN85) PROFILE
VGET (XDSN86 XDSN87 XDSN88 XDSN89 XDSN90) PROFILE
VGET (XDSN91 XDSN92 XDSN93 XDSN94 XDSN95) PROFILE
VGET (XDSN96 XDSN97 XDSN98 XDSN99) PROFILE
IF (&PDS = N)
IF (&XOPT NE B,V,E,M,D,Z,I)
&XOPT = &Z
IF (&PDS = Y)
IF (&XOPT NE B,V,E,M,D,Z,I,P)
&XOPT = &Z
)PROC
IF (&XN NE &Z)
&XN = TRANS(&XN 01,1 02,2 03,3 04,4 05,5 06,6 07,7 08,8 09,9 *,*)
IF (.CURSOR GE XDSN1 AND .CURSOR LE XDSN99)
&XN = TRUNC(.CURSOR,4)
&XN = .TRAIL
|
|
|
