BROWSE AND READ

[claudeb]

Hi, could you please explain to me why when using Browse the program doesn't work.
thanks
PROCESS-POLICIES.
******************
MOVE LOW-VALUES TO WPOL-KEY.
MOVE HIGH-VALUES TO WPOL-ENDBR-KEY.
* PERFORM POL-1000-BROWSE
* THRU POL-1000-BROWSE-X.

IF WPOL-IO-OK
PERFORM POL-READ-NEXT
THRU POL-READ-NEXT-X
PERFORM POL-READ-NEXT
THRU POL-READ-NEXT-X
END-IF.

IF NOT WPOL-IO-EOF
PERFORM MAIN-LINE
THRU MAIN-LINE-X
UNTIL WPOL-IO-EOF.
* PERFORM POL-END-BROWSE
* THRU POL-END-BROWSE-X.
PROCESS-POLICIES-X.
EXIT.
/
ALL-DONE.
**********
PERFORM POL-CLOSE
THRU POL-CLOSE-X.
PERFORM OCF-CLOSE
THRU OCF-CLOSE-X.
STOP RUN.
ALL-DONE-X.
EXIT.
0000-MAIN-LINE.

MOVE 0 TO W1-RPOL-POL-MPREM-AMT.
MOVE MPREM-AMT TO W1-MPREM-AMT.
COMPUTE W1-MPREM-AMT=…..
COMPUTE WS-GRS-AMT=…..

IF (W1-MREM-AMT NOT EQUAL 0)
AND (BILL NOT EQUAL 0)
AND (WS-GRS-AMT > GRS-APREM-AMT)
DISPLAY 'IF >= POL-ID = ', POL-ID
MOVE XXXXX TO YYYYY

* PERFORM POL-READ-FOR-UPDATE
* THRU POL-READ-FOR-UPDATE-X
PERFORM POL-REWRITE
THRU POL-REWRITE-X.

IF NOT WPOL-IO-EOF
PERFORM POL-2000-READ-NEXT
THRU POL-2000-READ-NEXT-X.

0000-MAIN-LINE-X.
EXIT.

 

[slade]

Hi Claude,

You say "it doesn't work". Are you getting incorrect o/p? an abend? compiler msgs?

You don't show the file def/asign or open or the i/o pgraphs.

All of these things (and others) can contain the cause of your problem.

Regards, Jack.

 

[claudeb]

hi Slade,
finally i could get back to the posting
this is my file
SELECT POLICY-FILE ASSIGN TO FILEPOL
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS FILE-KEY
FILE STATUS IS WFILE-STATUS.

THANKS

 

[slade]

Hi Claude,

You don't show the browse pgraph and others so it's hard to determine what you're trying to do.

Browse can be a generic term to indicate scanning through a file. Or it can be aspecific term that defines part of the CICS commands START/END/RESET BROWSE.

If your'e trying to use BROWSE commands in a batch COBOL pgm you'll get errors. Also, read for update and read prev are specific concepts that only apply to to VSAM in a CICS environment.

If this isn't your problem you'll have to submit the full code set to get an answer.

Regards, Jack.