Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Error:-IF STMT CONTAINS NO EXPRESSION OR THEN KEYWORD

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 171
Location: Bangalore

PostPosted: Mon Mar 27, 2006 11:42 pm    Post subject: Error:-IF STMT CONTAINS NO EXPRESSION OR THEN KEYWORD
Reply with quote

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
Back to top
View user's profile Send private message

amitrath

New User


Joined: 30 Apr 2004
Posts: 28
Location: Carmel, USA.

PostPosted: Sat Apr 01, 2006 12:54 am    Post subject: Re: Error:-IF STMT CONTAINS NO EXPRESSION OR THEN KEYWORD
Reply with quote

Try adding "THEN"..

e.g.

IF (expression) THEN
do this do that...
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Need help with below DB2 error ashek15 DB2 3 Sat Mar 18, 2017 5:56 am
No new posts FINDREP Syntax Error seahawk789 DFSORT/ICETOOL 4 Thu Mar 09, 2017 10:11 pm
No new posts INVOKE WEBSERVICE error danik56 CICS 11 Thu Mar 09, 2017 11:52 am
No new posts Row not found Sql error GaganGarg DB2 7 Tue Mar 07, 2017 6:29 am
No new posts DB2 SQL Error: SQLCODE=-440, SQLSTATE... kishpra DB2 1 Sat Feb 18, 2017 2:31 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us