PASS - Eine Sekunde warten

Allgemeines

Anwendungsgebiet:	Starten, Unterbrechen und Beenden; siehe "Starten, Unterbrechen und Beenden"
Makrotyp:	O-Typ; siehe "O-Typ-Makroaufrufe"

Makrobeschreibung

Der Makro PASS versetzt die Task 1 Sekunde lang in den Wartezustand.

Makroaufrufformat

PASS

Beispiel

PASS     START
         PRINT NOGEN
         BALR  3,0
         USING *,3
         GEPRT ,CPU                 REMAINING PROGRAM TIME 
         GDATE TOD=CLOCK            TIME OF DAY
         PASS                       WAIT ONE SECOND
         GDATE TOD=CLOCK1           TIME OF DAY
         GEPRT ,CPU1                REMAINING PROGRAM TIME
DTH1     TERM
CLOCK    DS    CL8
         DC    C' '
CLOCK1   DS    CL8
         DC    C' '
CPU      DS    CL6
         DC    C' '
CPU1     DS    CL6
         DC    C' '
         END

Ablaufprotokoll

/start-assembh
%  BLS0500 PROGRAM 'ASSEMBH', VERSION '<ver>' OF '<date>' LOADED
%  ASS6010 <ver> OF BS2000 ASSEMBH  READY 
//compile source=*library-element(macexmp.lib,pass), -
//        compiler-action=module-generation(module-format=llm), -
//        module-library=macexmp.lib, -
//        listing=parameters(output=*library-element(macexmp.lib,pass)), -
//        test-support=*aid
%  ASS6011 ASSEMBLY TIME: 322 MSEC
%  ASS6018 0 FLAGS, 0 PRIVILEGED FLAGS, 0 MNOTES
%  ASS6019 HIGHEST ERROR-WEIGHT: NO ERRORS
%  ASS6006 LISTING GENERATOR TIME: 78 MSEC
//end
%  ASS6012 END OF ASSEMBH
/load-executable-program library=macexmp.lib,element-or-symbol=pass, -
/     test-options=*aid
%  BLS0523 ELEMENT 'PASS', VERSION '@' FROM LIBRARY
   ':2OSG:$QM212.MACEXMP.LIB' IN PROCESS
%  BLS0524 LLM 'PASS', VERSION ' ' OF '<date <time>' LOADED
/%on %term<%d clock,clock1,cpu,cpu1>
/%r
*** TID: 005000D8 *** TSN: 2QSE *********************************************
**
SRC_REF:    54 SOURCE: PASS  PROC: PASS  ************************************
**
CLOCK           = |13:12:36| ---------------------------------------------(1)
CLOCK1          = |13:12:37|
CPU             = |022900| -----------------------------------------------(2)
CPU1            = |022900|

(1)	Ausgabe der Uhrzeit vor und nach der Ausführung des Makros PASS. Es ist eine Sekunde vergangen.
(2)	Ausgabe der CPU-Zeit vor und nach der Ausführung des Makros PASS. Es wurde keine CPU-Zeit verbraucht.