Skip to Content

DEFINE DATA storage

  1. (See Procedure-division for a narrative. NATURAL programming language coding examples follow)

    01   CKPT-SAVE-AREA
     02    CKPT-ROUTINE-DATA
      03   CKPT-KEY-DEFINITION
       04  CKPT-PGM-NAME          (A8) INIT <'PGMNAME'>
       04  CKPT-JOB-NAME          (A8) INIT <'JOBNAME'>
       04  CKPT-PGM-NBR           (A4) INIT <'    '>
      03   REDEFINE CKPT-KEY-DEFINITION
       04  CKPT-RECORD-KEY        (A20)
      03   CKPT-RECORD-DATA
       04  CKPT-FREQUENCY         (A4) INIT <'T002'>
       04  CKPT-INTERNAL          (A56) INIT <'      '>
      03   CKPT-REQUEST-TYPE      (A1) INIT <'S'>
      03   CKPT-RETURN-CODE       (A1) INIT <'       '>
      03   CKPT-TAKEN-FLAG        (A1) INIT <'N'>
      03   CKPT-FILLER1           (A41) INIT <'     '>
      03   NBR-OF-SAMS            (B2) INIT <2>
      03   CKPT-ROLLBACK          (A1) INIT <' '>
      03   CKPT-FILLER2           (A1) INIT <' '>
     02    SAM1-DEFINITION
     03    SAM1-DDNAME            (A8) INIT <'ddname1'>
     03    SAM1-REQUEST-TYPE      (A6) INIT <'OPEN '>
     03    SAM1-FILE-TYPE         (A1) INIT <'I'>
     03    SAM1-RETURN-CODE       (A3) INIT <'     '>
     03    SAM1-FILLER1           (A57) INIT <'  '>
     03    SAM1-VSAM-RECFM        (A1) INIT <'     '>
     03    SAM1-FILLER2           (A4) INIT <'     '>
     02    REDEFINE SAM1-DEFINITION
      03   SAM1-WORK-AREA         (A80)
     02    SAM2-DEFINITION
      03   SAM2-DDNAME            (A8) INIT <'ddname1'>
      03   SAM2-REQUEST-TYPE      (A6) INIT <'OPEN '>
      03   SAM2-FILE-TYPE         (A1) INIT <'I'>
      03   SAM2-RETURN-CODE       (A3) INIT <'    '>
      03   SAM2-FILLER1           (A57) INIT <'   '>
      03   SAM2-VSAM-RECFM        (A1) INIT <'   '>
      03   SAM2-FILLER2           (A4) INIT <'    '>
     02    REDEFINE SAM2-DEFINITION
      03   SAM2-WORK-AREA         (A80)
    .
    .
    .
    /* Beginning here, place any NATURAL Storage areas that
      needs to be included in the Checkpoint Area, which
      QUICKSTART will save during a Checkpoint, and update
      during a restart.
    */
    .
    .
    .
    /* The following is the delimiter used by QUICKSTART to mark
       the end of the Checkpoint Area. Any NATURAL storage
       areas appearing after this delimiter are not supported
       during a checkpoint or restart.
    */
    02 CKPT-AREA-END (A20) INIT <'** CKPT AREA END **'>

    /* Other Storage areas that don't need to be saved/restored
       to ensure a successful restart go here.
    */

    (See The QUICKSTART for MVS Checkpoint Control Table for definitions of the Checkpoint Area fields.)

  2. (See COBOL-programming-language-supplement)
  3. (See COBOL-programming-language-supplement)

  4. (See COBOL-programming-language-supplement for a narrative. NATURAL programming language coding example follows)

    02    SAMn-DEFINITION
     03   SAMn-DDNAME          (A8)   INIT <'ddname1'>
     03   SAMn-REQUEST-TYPE    (A6)   INIT <'OPEN '>
     03   SAMn-FILE-TYPE       (A1)   INIT <'I'>
     03   SAMn-RETURN-CODE     (A3)   INIT <'   '>
     03   SAMn-FILLER1         (A57)  INIT <'   '>
     03   SAMn-VSAM-RECFM      (A1)   INIT <' '>
     03   SAMn-FILLER2         (A4)   INIT <'   '>
    02    REDEFINE SAMn-DEFINITION
     03   SAMn-WORK-AREA       (A80)
  5. (See COBOL-programming-language-supplement)

  6. (See COBOL-programming-language-supplement for narrative. NATURAL programming language coding example follows)

    02 IOAREAn
     03 CUSTOMER-ID     (A100)
     03 CUSTOMER-AMT    (B4)
  7. (See COBOL-programming-language-supplement)


Related topic

NATURAL-programming-language-supplement


 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*

QUICKSTART for MVS 3.4