VSAM - Example: password protection for a VSAM indexed file

Example: password protection for a VSAM indexed file

Enterprise COBOL for z/OS, Version 4.2, Programming Guide

The following example shows the COBOL code used for a VSAM indexed file that has password protection.

       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT LIBFILE ASSIGN TO PAYMAST
                  ORGANIZATION IS INDEXED
                  RECORD KEY IS EMPL-NUM
                  PASSWORD   IS BASE-PASS
                  ALTERNATE RECORD KEY IS EMPL-PHONE
                  PASSWORD   IS PATH1-PASS

      . . .

       WORKING-STORAGE SECTION.
       01  BASE-PASS          PIC X(8) VALUE "25BSREAD".
       01  PATH1-PASS         PIC X(8) VALUE "25ATREAD".