Loading...
Select Version
&pagelevel(3)&pagelevel
General
Application area: | Starting, interrupting and terminating; see "Starting, interrupting and terminating" |
Macro type: | Type O; see "O-type macros" |
Macro description
The PASS macro causes the task to wait one second.
Macro format
PASS |
Example
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
Runtime log:
/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) | Output of the time, before and after running the macro PASS. One second has passed. |
(2) | Output of the CPU time before and after running the macro PASS. No CPU time was used. |