Skip to content

Mock a CICS file read and provide fake results

Dave Nicolette edited this page Dec 17, 2020 · 7 revisions
MOCK CICS READ 
    DATASET('FILENAME') 
    RIDFLD(WS-KEY) 
    INTO(WS-RECORD) 
    LENGTH(256)
    MOVE 'AAAAABBBBBCCCCCDDDDDEEEEE' TO WS-RECORD
END-MOCK
. . .
EXPECT WS-FIELD-3 TO BE 'CCCCC'
VERIFY CICS READ 
    DATASET('FILENAME')
    RIDFLD(WS-KEY) 
    INTO(WS-RECORD) 
    LENGTH(256)
HAPPENED ONCE

Clone this wiki locally