1
Download ASM S/390 User`s Guide
Transcript
B.2.4 Retrieve Data Record (Sequential Retrieval). * SET UP NEARARCHIVE PARAMETERS PERFORM C100-INIT-NEARARCHIVE-PARMS. (1) MOVE MOVE MOVE SET MOVE PERFORM '42' TO W02-REQUEST-CODE. 2 TO W02-SUPP-CODE1 'V100' TO W02-DATABASE-NAME. W02-KEY-POINTER TO ADDRESS OF W06-KEY. W04-DATA-LENGTH TO W02-DATA-LENGTH. R100-RETRIEVE-DATA UNTIL W04-END-OF-DATA-IND = 'Y'. (2) (3) | (4) (5) | R100-RETRIEVE-DATA SECTION. *=========================== * RETRIEVE NEARARCHIVE DATA CALL 'OTASP100' USING W02-NEAR-PARMS. IF (W02-RETURN-CODE = '30') MOVE 'Y' TO GO TO R199-EXIT. W04-END-OF-DATA-IND. IF NOT (W02-RETURN-CODE = '00') MOVE W02-RETURN-CODE TO MOVE W02-SUPP-CODE1 TO MOVE W02-SUPP-CODE2 TO MOVE W99-ERR-MSG4 TO PERFORM Z900-ERROR-PROCESSING. W99-ERR-MSG4-RETURN. W99-ERR-MSG4-SUPP1. W99-ERR-MSG4-SUPP2. W99-ERR-MSG. MOVE W08-RECORD. W02-DATA TO | (6) (7) | R199-EXIT. *========== EXIT. EJECT Notes: 1. Initialize NearArchive parameter block (see B.2.1). 2. W02-REQUEST-CODE - '42', retrieve logical record. 3. W02-SUPP-CODE1 - 2, sequential read request. ASM for S/390 v2.5 - User Manual B.15
