Rodolfo Lopez ([log in to unmask]) wrote:
: Is there any way of generating a programmatic Pause within a COBOLII
: program? The PAUSE intrinsic requires a 32-bit Real value as a passing
: parameter which COBOL does not support.
 
Hope I'm not beating a dead horse here.  I like the following code,
because it works on MPE V as well as MPE/iX.  It's from Engineer
Note A3043325 on HP SupportLine.
 
-----cut here-----
     $CONTROL DYNAMIC
      IDENTIFICATION DIVISION.
      PROGRAM-ID. EZPAUSE.
     *
     *    This is a "universal" subroutine for calling the PAUSE
     *    intrinsic from COBOL.  This source file can be compiled
     *    in any of the following environments.
     *
     *    * ANSI74 or ANSI85.
     *    * COBOL II on MPE V systems.
     *    * Compatibility mode COBOL II on MPE/iX systems.
     *    * Native mode COBOL II/iX on MPE/iX systems.
     *
     *    The subroutine can reside in a USL, an RL, an SL,
     *    an NMOBJ file, or an XL.  Or use this as sample code
     *    showing how to call PAUSE directly from your program.
     *
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      77  STRINGLEN        PIC S9(4)    COMP.
      77  REAL-NUMBER      PIC S9(9)    COMP.
      77  ERR-OR           PIC S9(4)    COMP.
      LINKAGE SECTION.
      77  PAUSE-SECONDS    PIC 9(6).
      PROCEDURE DIVISION USING PAUSE-SECONDS.
      BEGIN.
          CALL INTRINSIC ".LEN." USING PAUSE-SECONDS GIVING STRINGLEN.
          CALL "HPEXTIN" USING
                  @PAUSE-SECONDS, STRINGLEN,
                  \0\, \1\, \0\, \0\,
                  REAL-NUMBER,  ERR-OR.
          CALL INTRINSIC "PAUSE" USING REAL-NUMBER.
          EXIT PROGRAM.
-----cut here-----
 
Walter