Example 1
This example extracts and prints the salary of all employees whose last name begins with any letter between A and P, inclusive:
Figure 271 ON VSAM Statement – Example 1
LIBRARY : CTBP.PROD.RULES RULE : VSAM
COMMAND === SCROLL=== CRSR
+-----------------------------------------------------------------------------+
OWNER M42 GROUP PRO
UPDATED 08/08/00 - 14:22:41 BY M42B
DESC
OPTIONS
===========================================================================
EXECUTE SALARY UPON C
ON VSAM FILENAME ACC.PROJ1.SALARY T KSDS
FIRSTKEY = C'A' C
LASTKEY = C'P' C
MODE DS LINECT 0000 DATASTAMP
WHEN LINE 001 - 999 COL 001 - 020 STOP AND/OR
STRING = .AL.
DO EXTRACT = EMPNAME
LEVEL LINE +000 COL 0001 - 0020 PROCESS TYP
DO EXTRACT = EMPSALARY
LEVEL LINE +000 COL 0021 - 0032 PROCESS TYP
DO PRINT = SALARY = '%%EMPNAME %%EMPSALARY' F C
===========================================================================
EXECUTE UPON C
ON
======= >>>>>>>>>>>>>>> END OF RULE DEFINITION PARAMETERS <<<<<<<<<<<<<<< =====
PLEASE FILL IN RULE DEFINITION. 14.33.21
Example 2
This example extracts and prints the salary of employees listed in the 2nd through 9th records of an RRDS type VSAM file.
Figure 272 ON VSAM Statement – Example 2
LIBRARY : CTBP.PROD.RULES RULE : RULRRDS
COMMAND ===> SCROLL===> CRSR
+------------------------------------------+
OWNER M42 GROUP PROD
UPDATED 08/08/00 - 12:34:12 BY M42
DESC
OPTIONS
===========================================================================
EXECUTE SALARY UPON C
ON VSAM FILENAME ACCT.VSAM.RRDS T RRDS
FIRSTKEY = C'2' C
LASTKEY = C'9' C
MODE DS LINECT 0000 DATASTAMP
WHEN LINE 001 - 999 COL 001 - 001 STOP AND/OR
STRING = .AL.
DO EXTRACT = EMPNAME
LEVEL 0 LINE +000 COL 0001 - 0020 PROCESS TYP
DO EXTRACT = SALARY
LEVEL 0 LINE +000 COL 0071 - 0080 PROCESS TYP
DO PRINT = %%EMPNAME F C
DO PRINT = %%SALARY F C
DO
WHEN LINE - COL - STOP AND/OR
PLEASE FILL IN RULE DEFINITION. 11.50.15
Example 3
This example extracts and prints the salary of employees listed in the 2nd through 12th records of an ESDS type VSAM file with 80-character records.
Figure 273 ON VSAM Statement – Example 3
LIBRARY : CTBP.PROD.RULES RULE : RULESDS
COMMAND ===> SCROLL===> CRSR
+-------------------------------------+
OWNER M42 GROUP PROD
UPDATED 08/08/00 - 12:33:12 BY M42
DESC
OPTIONS
===========================================================================
EXECUTE SALARY UPON C
ON VSAM FILENAME PROD.VSAM.ESDS T ESDS
FIRSTKEY = C'080' C
LASTKEY = C'880' C
MODE DS LINECT 0000 DATASTAMP
WHEN LINE 001 - 999 COL 001 - 001 STOP AND/OR
STRING = .AL.
DO EXTRACT = EMPNAME
LEVEL 0 LINE +000 COL 0001 - 0020 PROCESS TYP
DO EXTRACT = SALARY
LEVEL 0 LINE +000 COL 0071 - 0080 PROCESS TYP
DO PRINT = %%EMPNAME F C
DO PRINT = %%SALARY F C
DO
WHEN LINE - COL - STOP AND/OR
PLEASE FILL IN RULE DEFINITION. 12.20.18
Parent Topic |