<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
PROCEDURE FLUSH(INDEX,FLAG);                                   <<*7562>>00510000
VALUE INDEX,FLAG;                                              <<*7562>>00512000
LOGICAL FLAG;                                                  <<*7562>>00515000
   PXJITDST    =  PCBX(11)#,         << JIT dst # from PCBX  >><<06544>>00554000
   PXFXLOGGING:=1;                                             <<06544>>01258000
         FLUSH(ENUM,FALSE);                                    <<*7562>>01366000
      FLUSH(ENUM,FALSE);                                       <<*7562>>01434000
               FLUSH(ENUM,FLUSH'FLAG);                         <<*7562>>01992000
      IF BEGIN'TRAN OR END'TRAN OR FLUSH'FLAG                  <<*7562>>02000000
         THEN FLUSH(ENUM,FLUSH'FLAG);                          <<*7562>>02001000
         FLUSH(ENUM,FLUSH'FLAG);                               <<*7562>>02030000
               FLUSH(ENUM,FLUSH'FLAG);                         <<*7562>>02054000
            FLUSH(ENUM,FLUSH'FLAG);                            <<*7562>>02066000
      IF BEGIN'TRAN OR END'TRAN OR FLUSH'FLAG                  <<*7562>>02074000
         THEN FLUSH(ENUM,FLUSH'FLAG);                          <<*7562>>02075000
         FLUSH(ENUM,FALSE);                                    <<*7562>>02700000
         FLUSH(ENUM,FALSE);                                    <<*7562>>02726000
      FLUSH(ENUM,FALSE);                                       <<*7562>>02784000
         FLUSH(ENUM,FALSE);                                    <<*7562>>02798000
   FLUSH(ENUM,TRUE);                                           <<*7562>>03094000
PROCEDURE FLUSH(INDEX,FORCE'POST'FLUSH);                       <<*7562>>03118000
VALUE INDEX,FORCE'POST'FLUSH;                                  <<*7562>>03120000
LOGICAL FORCE'POST'FLUSH;                                      <<*7562>>03123000
FORCE'POST'FLUSH - True if want to wait for the buffer post.   <<*7562>>03161000
                   If caching is on, normally don't wait for   <<*7562>>03161100
                   disc post on logical I/Os. However, if      <<*7562>>03161200
                   doing FLUSHLOG or WRITELOG mode=2.          <<*7562>>03161300
                                                               <<*7562>>03161400
      NUMPARMS  = 2;   << Number of parameters to FLUSH >>     <<m8759>>03174000
      ATT'FLAGS,                                               <<*7562>>03197000
ATT'FLAGS := FLAGS;    << Normally serial write post >>        <<*7562>>03352000
                                                               <<*7562>>03352100
IF FORCE'POST'FLUSH THEN ATT'FLAGS.WAIT'FOR'POST := 1;         <<*7562>>03353000
         DLOGBUFF(INBUFREC))*RECSIZE,LOGADDR1,LOGADDR2,        <<*7562>>03470000
         ATT'FLAGS);                                           <<*7562>>03471000
         WRITE,COUNT,LOGADDR1,LOGADDR2,ATT'FLAGS);             <<*7562>>03494000
              ATT'FLAGS);                                      <<*7562>>03550000
            @LOGBUFF(BUFBASE),WRITE,COUNT,LOGADDR1,LOGADDR2,   <<*7562>>03662000
            ATT'FLAGS);                                        <<*7562>>03663000
         @LOGBUFF(BUFBASE),WRITE,COUNT,LOGADDR1,LOGADDR2,      <<*7562>>03762000
         ATT'FLAGS);                                           <<*7562>>03763000
                          LOGADDR1,LOGADDR2,ATT'FLAGS);        <<*7562>>03906000
      LOGADDR2,ATT'FLAGS);                                     <<*7562>>03970000
         ERRNUM := -NIXLOGID;                                  << 9493>>05014000
      ERRNUM := -NOLOGID;                                      << 9422>>05668000
         ERRNUM := -NIXLOGID;                                  << 9493>>05704000
