hemanth.pesce

 Profile Answers by hemanth.pesce 

• Sep 29th, 2011

 

Move HIGH-VALUES TO RID FIELD,

EX: MOVE HIGH-VALUES TO WS-KEY
EXEC CICS READ
FILE('LogicalFileName')
INTO(Working-Storage DataItem)
RIDFLD( WS-KEY)
LENGTH(data-area)
END-EXEC.

hemanth.pesce

 Profile Answers by hemanth.pesce 

• Sep 29th, 2011

 

MOVE HIGH-VALUES TO WS-KEY.
EXEC CICS STARTBR
FILE('LOGICALFILENAME')
RIDFLD(WS-KEY)
END-EXEC.
EXEC CICS READNEXT
FILE('LOGICALFILENAME')
INTO('WORKING-STOAGE AREA)
RIDFLD(WS-KEY)
LENGTH(DATAAREA)
END-EXEC.

chandra

• Oct 20th, 2011

 

first of all we have to do

MOVE HIGH-VALUES TO KEY-NAME
AFTER

READ NEXT RECORD
DISPLAY 'RECORD'

K.Abhilash Kumar

• Nov 26th, 2012

 

We can read last record in CICS using Read Prev command by moving High-Values to the key.

Move High-Values to Ws-Key

ExEC CICS STARTBR
FILE(LOGICAL FILE NAME)
RIDFLD(WS-KEY)
END-EXEC

EXEC CICS READPREV
FILE(LOGICAL FILE NAME)
INTO(WORKING-STORAGE-AREA)
END-EXEC