Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Handle less than or equal to condition in search all

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL
Author Message
Anand78

New User


Joined: 06 Mar 2006
Posts: 48
Location: PUNE

PostPosted: Wed May 07, 2008 9:56 am    Post subject: Handle less than or equal to condition in search all
Reply with quote

Hi All,

Please help me how to handle less than or equal to condition in search all.

SEARCH ALL GROSS-DISC-TBLE
AT END
MOVE 'N' TO GROSS-DISC-ENTRY
WHEN FFH-SEQUENCE-NUMBER = GRS-FEE-SEQ (GRS-IDX)
AND FFH-TABLE-RECID = GRS-FEE-RECID (GRS-IDX)
AND GRS-FEE-PROD (GRS-IDX) >= 75
MOVE 'Y' TO GROSS-DISC-ENTRY
END-SEARCH.
Back to top
View user's profile Send private message
References
PostPosted: Wed May 07, 2008 9:56 am    Post subject: Re: Handle less than or equal to condition in search all Reply with quote

nabarundas

New User


Joined: 21 Jun 2007
Posts: 16
Location: pune

PostPosted: Wed May 07, 2008 10:47 am    Post subject: Hi..
Reply with quote

Hi Anand78,

Quote:
AND GRS-FEE-PROD (GRS-IDX) >= 75


We can't use '>=' in SEARCH ALL only we can use '=' . If your requirement is to use '>=' then go for SEARCH not SEARCH ALL.

Regards
Back to top
View user's profile Send private message
sri_mf

Active User


Joined: 31 Aug 2006
Posts: 138
Location: At my Desk

PostPosted: Wed May 07, 2008 12:15 pm    Post subject: Re: Handle less than or equal to condition in search all
Reply with quote

Anand78 wrote:
Hi All,

Please help me how to handle less than or equal to condition in search all.

SEARCH ALL GROSS-DISC-TBLE
AT END
MOVE 'N' TO GROSS-DISC-ENTRY
WHEN FFH-SEQUENCE-NUMBER = GRS-FEE-SEQ (GRS-IDX)
AND FFH-TABLE-RECID = GRS-FEE-RECID (GRS-IDX)
AND GRS-FEE-PROD (GRS-IDX) >= 75
MOVE 'Y' TO GROSS-DISC-ENTRY
END-SEARCH.


Anand pls refer this http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/IGYL1101/3.30?DT=19930312093006
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL All times are GMT + 6 Hours
Page 1 of 1