Example

The following example shows sample coding for WRITE and READ-type backup-while-open calls using LOAD and CALL statements.

Figure 1. Example of IGWABWO Using LOAD and CALL Statements

               .
               .

          LOAD EP=IGWABWO
          LR   R2,R0
          CALL (R2),(RC1,RS1,PROB1,RW1,DSNLEN1,DSN1,SEL1,BWOF1,BWOR1,BWRE)
          CALL (R2),(RC2,RS2,PROB2,RW2,DSNLEN2,DSN2,SEL2,BWOF2,BWOR2,BWRE)
               .
               .

*  ARGUMENTS FOR WRITING
RC1       DC   F'0'
RS1       DC   F'0'
PROB1     DC   2F'0'
RW1       DC   F'1'            WRITE
DSNLEN1   DC   F'11'
DSN1      DC   CL44'THAT.VSAM01'
SEL1      DC   F'3'            WRITE BWO_FLAGS AND BWO_RECOV
BWOF1     DC   F'0'
          DC   F'1'
          DC   F'0'
BWOR1     DS   0F
          DC   X'0096137F'     INPUT DATE IN 0CYYDDDF FORMAT
          DC   X'1045301F'     INPUT TIME IN HHMMSSTF FORMAT
BWRE1     DC   CL16' '
*  ARGUMENTS FOR READING
RC2       DC   F'0'
RS2       DC   F'0'
PROB2     DC   2F'0'
RW2       DC   F'0'            READ
DSNLEN2   DC   F'11'
DSN2      DC   CL44'THAT.VSAM01'
SEL2      DC   F'3'            READ BWO_FLAGS AND BWO_RECOV
BWOF2     DC   3F'0'
BWOR2     DC   CL8' '
BWRE2     DC   CL16' '
*