Input Modules › Selective Retrieval of VSAM files (CULLVSAM) › Example—KSDS Pointed Start

Example—KSDS Pointed Start

This example performs a sequential read of a KSDS file, starting with account 7778888.

The following code:

• Specifies CULLVSAM on the UM option of the INPUT parameter
• Instructs CULLVSAM, through the key control statement, to start reading the file with the record that contains 7778888 in the first position of the key field

   IN 80 F 80 UM(CULLVSAM)
   REC NAME          1  20
   REC BALANCE      21   6  2  DP=2
   REC ACCOUNT      33   4  3
   013EXAMPLE OF CULLVSAM
   01410038 'SEQUENTIAL READ FROM A POINTED START OF'
   01410078 'KEY-SEQUENCED FILE'
   01420001 ' '
   0151*001 NAME          HH 'NAME'
   0151*002 BALANCE       HH 'BALANCE'
   0151*003 ACCOUNT   FN  HH 'ACCOUNT'
   01OUT D
  //CULPRIT.VSAMCTRL DD *
   KEY C'7778888'
  

Example—ESDS Pointed Start

This example does a sequential read of records in an ESDS file, starting with the second record.

The following code:

• Specifies CULLVSAM on the UM option of the INPUT parameter
• Uses the key control statement, coded in the JCL CULL step, to instruct CULLVSAM to start a sequential read from the relative byte address of the second record in the file

   IN 80 F 80 UM(CULLVSAM)
   REC NAME          1  20
   REC BALANCE      21   6  2  DP=2
   REC ACCOUNT      33   4  3
   013EXAMPLE OF CULLVSAM
   01410040 'SEQUENTIAL READ FROM A POINTED START OF'
   01410080 'ENTRY-SEQUENCED FILE'
   01420001 ' '
   0151*001 NAME          HH 'NAME'
   0151*002 BALANCE       HH 'BALANCE'
   0151*003 ACCOUNT   FN  HH 'ACCOUNT'
   01OUT D
  // ASSGN SYSIPT,X'device'
  // EXEC CULL,SIZE=300K
   ADR H'00000050'