REXXは、外部(環境)コマンドによってデータセットなどのMVSリソースだけでなく様々なリソースにもアクセスすることができます。SDSFを呼び出すことで、スプールにアクセスしてジョブログなどのSYSOUTデータセットにアクセスすることもできます。以下は、バッチジョブをサブミットしてジョブログを読み込み、最後にMVSコマンド「D△A,L」を発行するプログラム・サンプルです。REXXからTSOコマンド、SDSFホスト・コマンドおよびUSSのsyscallコマンドを使用しています。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
/************************* REXX *************************** * REXX Exec with MVS, TSO and SDSF function under z/OS. * * ===================================================== * * MVS JOB SUBMITTION AND SDSF CALLING SAMPLE. * ************************** REXX **************************/ rc = SYSCALLS('ON') rc = ISFCALLS('ON') /* get our joblist */ ①ジョブ状況リストの取得 isfowner = 'userid' isfcols = 'JNAME JOBID RETCODE OWNERID QUEUE' isfsort = 'JOBID D' ADDRESS SDSF "ISFEXEC ST" IF rc <> 0 THEN EXIT 12 SAY "SDSF/ST Information, OWNER=" isfowner "("isfrows" JOBS)" SAY "==============================================" SAY "JOBNAME JOBID MAX-RC QUEUE" SAY "----------------------------------------------" DO ix=1 to isfrows SAY LEFT(jname.ix,8) LEFT(jobid.ix,8) LEFT(retcode.ix,10) , queue.ix END /* submit batch job */ ②JCLサブミットと実行結果の取得 x=OUTTRAP('msg') ADDRESS TSO "SUBMIT JCL(JCLRUN)" SAY msg1 IF rc = 0 THEN DO; PARSE VAR msg1 x '(' y PARSE VAR y target_jobid ')' y END ELSE EXIT 8 x=OUTTRAP('OFF') isfowner = 'userid' isfcols = 'TOKEN JOBID QUEUE' isfsort = 'JOBID D' target_status = '' DO UNTIL target_status = 'PRINT' ADDRESS SYSCALL "SLEEP (1)" ADDRESS SDSF "ISFEXEC ST" IF rc <> 0 THEN EXIT 12 DO ix=1 to isfrows UNTIL jobid.ix = target_jobid target_status = queue.ix END END ADDRESS SDSF "ISFBROWSE ST TOKEN('"token.ix"')" IF rc <> 0 THEN EXIT 12 IF SYSVAR("SYSENV") = 'FORE' THEN DO ; DO jx=1 to isfline.0 /* loop num of records from */ QUEUE isfline.jx /* isfline.1-x variables and */ END /* stack it to write PS dataset. */ QUEUE '' /* add null line to indicate eod */ ADDRESS TSO "ALLOC DD(OUT) DA(WORK.OUTLIST) SHR REUSE" ADDRESS MVS "EXECIO * DISKW OUT (FINIS" /* write all records from stack */ ADDRESS ISPEXEC "BROWSE DATASET(WORK.OUTLIST)" END /* show output dataset using ISPF browser when run under TSO foreground session. */ ELSE DO jx=1 to isfline.0 /* loop num of records from */ SAY isfline.jx /* isfline.1-x variables and */ END /* show it to STDOUT when run under TSO background session. */ /* issue MVS/JES2 command */ ③オペレーター・コマンドの発行 ADDRESS SDSF "ISFSLASH 'D A,L' (WAIT)" IF rc <> 0 THEN EXIT 12 IF isfulog.0 < 1 THEN EXIT 4 DO ix=1 to isfulog.0 SAY isfulog.ix END rc = SYSCALLS('OFF') rc = ISFCALLS('OFF') EXIT 0 |
REXXからSDSFを呼び出すには、用途に応じてISFEXEC、ISFBROWSEやISFSLASHなどのSDSFホスト・コマンドを実行します。DAやSTなどのSDSFパネル相当の機能ならISFEXEC、SYSOUTデータセットを読み込むにはISFBROWSE、オペレーター・コマンドの発行ならISFSLASHです。
①ジョブ状況リストの取得
ADDRESS SDSF “ISFEXEC ST”によってSDSF/STパネルの情報を取得できます。STパネルの各項目に対応した配列変数にジョブ毎の内容が格納されて返ります。サンプルでは、ジョブ・リストのフィルターとしてTSOのuseridをisfowner（Owner名）を指定して絞り込み、isfcols変数にJNAME（ジョブ名）、JOBID（ジョブID）、RETCODE（MAX-RC）、OWNERID（Owner名）、QUEUE（置かれているキュー）の項目だけを指定して取得しています。リストされたジョブ数はisfrows変数に格納されます。各項目内容の内、表示するジョブ名、ジョブID、MAX-RCおよびQUEUEの内容を、それぞれjname、jobid、retcode、queueに要素番号を指定して取り出して、標準出力に出力しています。
②JCLサブミットと実行結果の取得
ジョブのサブミットは、ADDRESS TSO “SUBMIT JCL(JCLRUN)”で行うことができます。SUBMITコマンドは「IKJ56250I JOB jobname(JOBnnnnn) SUBMITTED」のメッセージを返すので、そこから文字列処理でジョブIDの8文字を抜き出します。このジョブIDは、後続のSYSOUTデータセット読み込み処理で使用します。サブミット後、1秒間隔でADDRESS SDSF “ISFEXEC ST”を実行し、サブミットしたジョブが「PRINT」キューに入るまで同期合わせをします。サブミットしたジョブの実行が終了したら、ADDRESS SDSF “ISFBROWSE ST TOKEN(‘”token.ix”‘)”を実行してジョブ全体のSYSOUTを読み込みます。TSOフォアグラウンド・セッションで実行された場合は、読み込んだSYSOUTレコードをスタックに積んでEXECIOでPSデータセットに書き出してからISPFブラウザーを起動して表示します。フォアグラウンド・セッション以外で実行された場合は、標準出力に表示します。
③オペレーター・コマンドの発行
最後にMVSの「D△A,L」コマンドを発行して終了します（コマンドの実行結果も配列変数に格納されるので、その内容を標準出力に表示します）。
以下が、ISPFコマンドシェルから実行した結果です（左右スクロール有り）。TSOのフォアグラウンド・セッションで実行された場合は、コピーされた出力側のデータセット内容をISPFブラウザーを起動して表示しています。REXXならISPFユーティリティーの呼び出しも簡単です。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 |
SDSF/ST Information, OWNER= userid (16 JOBS) ============================================== JOBNAME JOBID MAX-RC QUEUE ---------------------------------------------- userid TSU01584 EXECUTION useridR JOB03428 CC 0000 PRINT useridR JOB03407 CC 0000 PRINT useridJ1 JOB01724 ABEND S0C4 PRINT useridJ1 JOB01721 JCL ERROR PRINT useridR JOB01405 CC 0000 PRINT useridR JOB01399 CC 0000 PRINT useridR JOB01397 CC 0000 PRINT useridR JOB01395 CC 0000 PRINT useridR JOB01381 CC 0000 PRINT useridR JOB01379 CC 0000 PRINT useridR JOB01374 CC 0000 PRINT useridR JOB01367 CC 0000 PRINT useridR JOB00925 CC 0000 PRINT useridR JOB00921 CC 0000 PRINT useridJ1 JOB00240 CC 0000 PRINT IKJ56250I JOB jobname(JOB03432) SUBMITTED 04.58.21 JOB03432 $HASP165 useridR ENDED AT SVSCJES2 MAXCC=0000 CN(INTERNAL) *** █; ＜ここでISPFブラウザーが起動され、ジョブ全体のSYSOUT内容が表示される＞ S0W1 2021188 05:03:25.11 ISF031I CONSOLE userid ACTIVATED S0W1 2021188 05:03:25.11 -D A,L S0W1 2021188 05:03:25.11 CNZ4105I 05.03.25 DISPLAY ACTIVITY 161 JOBS M/S TS USERS SYSAS INITS ACTIVE/MAX VTAM OAS 00014 00026 00020 00034 00037 00020/02000 00031 LLA LLA LLA NSW S HZR HZR IEFPROC NSW S JES2 JES2 IEFPROC NSW S VLF VLF VLF NSW S SDSF SDSF SDSF NSW S EPWFFST FFST EPWFFST NSW S HZSPROC HZSPROC HZSSTEP NSW SO VTAM VTAM VTAM NSW S RRS RRS RRS NSW S OAM OAM IEFPROC NSW S RACF RACF RACF NSW S SDSFAUX SDSFAUX SDSFAUX NSW S TCPIP TCPIP TCPIP NSW SO TN3270 TN3270 TN3270 NSW SO CSF CSF CSF NSW S TCAS TCAS TCAS OWT S SSHD SSHD *OMVSEX IN SO RSED RSED RSED OWT SO JMON JMON JMON OWT SO RSED9 STEP1 STCRSE OWT AO RSED1 STEP1 STCRSE OWT AO RSED2 STEP1 STCRSE OWT AO RSED2 STEP1 STCRSE OWT AO RSED3 STEP1 STCRSE OWT AO RSED4 STEP1 STCRSE OWT AO FTPSERVE STEP1 TCPIP OWT AO DBCGMSTR DBCGMSTR IEFPROC NSW S DBCGIRLM DBCGIRLM NSW S DBCGDBM1 DBCGDBM1 IEFPROC NSW S DBCGDIST DBCGDIST IEFPROC NSW SO DBCGADMT DBCGADMT STARTADM IN SO IZUANG1 IZUANG1 STEP1 NSW SO IZUSVR1 IZUSVR1 ZOSMF IN SO RSED1 STEP1 STCRSE OWT AO SSHD1 *OMVSEX OMVSKERN OWT AO SSHD3 STEP1 OMVSKERN OWT AO *** █; |
以下は、TSOのバッチセッションから実行した結果です（左右スクロール有り）。USSシェルからdorexx（*1）経由でMVS側REXXを実行しても同様の出力が行われます。サブミットしたジョブのSYSOUTを、ISPFブラウザーではなく標準出力（SYSTSPRTやSTDOUT）に表示しています。実際には、MVS側のバッチジョブをサブミットするプログラムをわざわざバッチ処理で実行することはないでしょう。
USS側からであれば、ちょっとした処理ならいちいちTSOログオンしなくてもMVS側のバッチジョブの状況をモニターしたりMVSやJES2コマンドを実行することができます。USSをメインに使いたい人であれば、新たにREXXを覚えなくてもシェル・スクリプトやPythonとZOAUの組み合わせがより簡単かも知れませんが、REXXであればPythonやZOAUを別途インストールしたり購入したりする必要がありません。
*1 dorexxについては「REXXからMVSデータセットにアクセスする」を参照。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 |
Display Filter View Print Options Search Help ----------------------------------------------------------------------------------------------------------------------------------- SDSF OUTPUT DISPLAY DOREXXJ1 JOB05348 DSID 102 LINE 0 COLUMNS 02- 133 COMMAND INPUT ===> SCROLL ===> CSR ********************************* TOP OF DATA ************************************************************************************* READY %REXXSDSF SDSF/ST Information, OWNER= userid (18 JOBS) ============================================== JOBNAME JOBID MAX-RC QUEUE ---------------------------------------------- userid TSU05198 EXECUTION DOREXXJ1 JOB05348 EXECUTION useridR JOB03470 CC 0000 PRINT useridR JOB03432 CC 0000 PRINT useridR JOB03428 CC 0000 PRINT useridR JOB03407 CC 0000 PRINT useridJ1 JOB01724 ABEND S0C4 PRINT useridJ1 JOB01721 JCL ERROR PRINT useridR JOB01405 CC 0000 PRINT useridR JOB01399 CC 0000 PRINT useridR JOB01397 CC 0000 PRINT useridR JOB01395 CC 0000 PRINT useridR JOB01381 CC 0000 PRINT useridR JOB01379 CC 0000 PRINT useridR JOB01374 CC 0000 PRINT useridR JOB01367 CC 0000 PRINT useridR JOB00925 CC 0000 PRINT useridR JOB00921 CC 0000 PRINT IKJ56250I JOB useridR(JOB05349) SUBMITTED 1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E S V S C J E S 2 0 19.27.56 JOB05349 ---- WEDNESDAY, 07 JUL 2021 ---- 19.27.56 JOB05349 IRR010I USERID userid IS ASSIGNED TO THIS JOB. 19.27.56 JOB05349 ICH70001I userid LAST ACCESS AT 19:27:56 ON WEDNESDAY, JULY 7, 2021 19.27.57 JOB05349 $HASP373 useridR STARTED - INIT 2 - CLASS A - SYS S0W1 19.27.58 JOB05349 - -----TIMINGS (MINS.)------ -----PAGING COUNTS-- -- 19.27.58 JOB05349 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWA PS 19.27.58 JOB05349 -GO 00 260 38 .00 .00 .0 99 SYSTEM 0 0 0 0 19.27.58 JOB05349 -useridR ENDED. NAME-userid TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0 19.27.58 JOB05349 $HASP395 useridR ENDED - RC=0000 0------ JES2 JOB STATISTICS ------ - 07 JUL 2021 JOB EXECUTION DATE - 9 CARDS READ - 55 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 3 SYSOUT SPOOL KBYTES - 0.01 MINUTES EXECUTION TIME 1 //useridR JOB ,userid,NOTIFY=&SYSUID JOB05349 //* IEFC653I SUBSTITUTION JCL - ,userid,NOTIFY=userid 2 //GO EXEC PGM=CUSTOMER 3 //STEPLIB DD DISP=SHR,DSN=&SYSUID..LOAD IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=userid.LOAD 4 //SYSMSTR DD DISP=SHR,DSN=&SYSUID..CUSTOMER IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=userid.CUSTOMER 5 //SYSIN DD * ICH70001I userid LAST ACCESS AT 19:27:56 ON WEDNESDAY, JULY 7, 2021 IEFA111I useridR IS USING THE FOLLOWING JOB RELATED SETTINGS: SWA=ABOVE,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB IEF236I ALLOC. FOR useridR GO IEF237I 0D37 ALLOCATED TO STEPLIB IEF237I 0D30 ALLOCATED TO SYSMSTR IEF237I JES2 ALLOCATED TO SYSIN IEF237I JES2 ALLOCATED TO SYSOUT IEF285I userid.useridR.JOB05349.D0000102.? SYSOUT IEF142I useridR GO - STEP WAS EXECUTED - COND CODE 0000 IEF285I userid.LOAD KEPT IEF285I VOL SER NOS= VPWRKM. IGD104I userid.CUSTOMER RETAINED, DDNAME=SYSMSTR IEF285I userid.useridR.JOB05349.D0000101.? SYSIN IEF373I STEP/GO /START 2021188.1927 IEF032I STEP/GO /STOP 2021188.1927 CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC VIRT: 100K SYS: 248K EXT: 2988K SYS: 11512K ATB- REAL: 4152K SLOTS: 0K VIRT- ALLOC: 15M SHRD: 0M IEF375I JOB/useridR /START 2021188.1927 IEF033I JOB/useridR /STOP 2021188.1927 CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC INPUT CUSTOMER PHONE NUMBER. NAME=ROGER MOORE INFO=VIALE G GALILEI 30/1, 30173 TESSERA-VENEZIA, ITALY NAME=AKIKO WAKABAYASHI INFO=2-1 HANEDA AIRPORT, OTA-KU TOKYO, JAPAN RECORD NOT FOUND. S0W1 2021188 19:27:58.88 ISF031I CONSOLE userid ACTIVATED S0W1 2021188 19:27:58.88 -D A,L S0W1 2021188 19:27:58.91 CNZ4105I 19.27.58 DISPLAY ACTIVITY 487 JOBS M/S TS USERS SYSAS INITS ACTIVE/MAX VTAM OAS 00025 00026 00008 00034 00054 00004/02000 00052 LLA LLA LLA NSW S HZR HZR IEFPROC NSW S JES2 JES2 IEFPROC NSW S VLF VLF VLF NSW S SDSF SDSF SDSF NSW S EPWFFST FFST EPWFFST NSW S HZSPROC HZSPROC HZSSTEP NSW SO VTAM VTAM VTAM NSW S RRS RRS RRS NSW S OAM OAM IEFPROC NSW S RACF RACF RACF NSW S SDSFAUX SDSFAUX SDSFAUX NSW S TCPIP TCPIP TCPIP NSW SO TN3270 TN3270 TN3270 NSW SO CSF CSF CSF NSW S TCAS TCAS TCAS OWT S SSHD SSHD *OMVSEX IN SO RSED RSED RSED IN SO JMON JMON JMON OWT SO RSED9 STEP1 STCRSE OWT AO RSED1 STEP1 STCRSE IN AO RSED2 STEP1 STCRSE OWT AO RSED2 STEP1 STCRSE OWT AO RSED3 STEP1 STCRSE OWT AO RSED4 STEP1 STCRSE OWT AO FTPSERVE STEP1 TCPIP OWT AO DBCGMSTR DBCGMSTR IEFPROC NSW S DBCGIRLM DBCGIRLM NSW S DBCGDBM1 DBCGDBM1 IEFPROC NSW S DBCGDIST DBCGDIST IEFPROC NSW SO DBCGADMT DBCGADMT STARTADM IN SO IZUANG1 IZUANG1 STEP1 NSW SO IZUSVR1 IZUSVR1 ZOSMF IN SO RSED1 STEP1 STCRSE OWT AO SSHD2 *OMVSEX OMVSKERN OWT AO SSHD4 STEP1 OMVSKERN OWT AO Z11568 *OMVSEX Z11568 OWT AO Z115684 STEP1 Z11568 OWT AO SSHD5 *OMVSEX OMVSKERN OWT AO SSHD7 STEP1 OMVSKERN OWT AO Z11908 *OMVSEX Z11908 OWT AO Z119085 STEP1 Z11908 OWT AO SSHD1 *OMVSEX OMVSKERN OWT AO SSHD3 STEP1 OMVSKERN OWT AO Z09974 *OMVSEX Z09974 OWT AO SSHD7 *OMVSEX OMVSKERN OWT AO SSHD9 STEP1 OMVSKERN OWT AO Z11193 *OMVSEX Z11193 OWT AO DOREXXJ1 BUILDSRC IN JO SSHD4 *OMVSEX OMVSKERN IN AO SSHD5 STEP1 OMVSKERN IN AO READY END ******************************** BOTTOM OF DATA *********************************************************************************** |
以下は、USSシェルからdorexx経由でMVS側REXXを実行した結果です。MVS側で実行したSAY命令の出力は、USSシェル側の標準出力（STDOUT）にリダイレクトされます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 |
/u/userid > dorexx rexxsdsf Do REXX exec under MVS TSO Batch environment. SDSF/ST Information, OWNER= userid (17 JOBS) ============================================== JOBNAME JOBID MAX-RC QUEUE ---------------------------------------------- userid TSU01584 EXECUTION useridR JOB03432 CC 0000 PRINT useridR JOB03428 CC 0000 PRINT useridR JOB03407 CC 0000 PRINT useridJ1 JOB01724 ABEND S0C4 PRINT useridJ1 JOB01721 JCL ERROR PRINT useridR JOB01405 CC 0000 PRINT useridR JOB01399 CC 0000 PRINT useridR JOB01397 CC 0000 PRINT useridR JOB01395 CC 0000 PRINT useridR JOB01381 CC 0000 PRINT useridR JOB01379 CC 0000 PRINT useridR JOB01374 CC 0000 PRINT useridR JOB01367 CC 0000 PRINT useridR JOB00925 CC 0000 PRINT useridR JOB00921 CC 0000 PRINT useridJ1 JOB00240 CC 0000 PRINT IKJ56250I JOB useridR(JOB03470) SUBMITTED 1 J E S 2 J O B L O G -- S Y S T E M S 0 W 1 -- N O D E S V S C J E S 2 0 05.04.29 JOB03470 ---- WEDNESDAY, 07 JUL 2021 ---- 05.04.29 JOB03470 IRR010I USERID userid IS ASSIGNED TO THIS JOB. 05.04.30 JOB03470 ICH70001I userid LAST ACCESS AT 04:58:19 ON WEDNESDAY, JULY 7, 2021 05.04.30 JOB03470 $HASP373 useridR STARTED - INIT 1 - CLASS A - SYS S0W1 05.04.31 JOB03470 - -----TIMINGS (MINS.)------ -----PAGING COUNTS-- -- 05.04.31 JOB03470 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB CLOCK SERV WORKLOAD PAGE SWAP VIO SWA PS 05.04.31 JOB03470 -GO 00 38 2 .00 .00 .0 5 SYSTEM 0 0 0 0 05.04.31 JOB03470 -useridR ENDED. NAME-userid TOTAL TCB CPU TIME= .00 TOTAL ELAPSED TIME= .0 05.04.31 JOB03470 $HASP395 useridR ENDED - RC=0000 0------ JES2 JOB STATISTICS ------ - 07 JUL 2021 JOB EXECUTION DATE - 9 CARDS READ - 55 SYSOUT PRINT RECORDS - 0 SYSOUT PUNCH RECORDS - 3 SYSOUT SPOOL KBYTES - 0.01 MINUTES EXECUTION TIME 1 //useridR JOB ,userid,NOTIFY=&SYSUID JOB03470 //* IEFC653I SUBSTITUTION JCL - ,userid,NOTIFY=userid 2 //GO EXEC PGM=CUSTOMER 3 //STEPLIB DD DISP=SHR,DSN=&SYSUID..LOAD IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=userid.LOAD 4 //SYSMSTR DD DISP=SHR,DSN=&SYSUID..CUSTOMER IEFC653I SUBSTITUTION JCL - DISP=SHR,DSN=userid.CUSTOMER 5 //SYSIN DD * ICH70001I userid LAST ACCESS AT 04:58:19 ON WEDNESDAY, JULY 7, 2021 IEFA111I useridR IS USING THE FOLLOWING JOB RELATED SETTINGS: SWA=ABOVE,TIOT SIZE=32K,DSENQSHR=DISALLOW,GDGBIAS=JOB IEF236I ALLOC. FOR useridR GO IEF237I 0D37 ALLOCATED TO STEPLIB IEF237I 0D30 ALLOCATED TO SYSMSTR IEF237I JES2 ALLOCATED TO SYSIN IEF237I JES2 ALLOCATED TO SYSOUT IEF285I userid.useridR.JOB03470.D0000102.? SYSOUT IEF142I useridR GO - STEP WAS EXECUTED - COND CODE 0000 IEF285I userid.LOAD KEPT IEF285I VOL SER NOS= VPWRKM. IGD104I userid.CUSTOMER RETAINED, DDNAME=SYSMSTR IEF285I userid.useridR.JOB03470.D0000101.? SYSIN IEF373I STEP/GO /START 2021188.0504 IEF032I STEP/GO /STOP 2021188.0504 CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC VIRT: 100K SYS: 264K EXT: 2988K SYS: 11532K ATB- REAL: 4152K SLOTS: 0K VIRT- ALLOC: 15M SHRD: 0M IEF375I JOB/useridR /START 2021188.0504 IEF033I JOB/useridR /STOP 2021188.0504 CPU: 0 HR 00 MIN 00.01 SEC SRB: 0 HR 00 MIN 00.00 SEC INPUT CUSTOMER PHONE NUMBER. NAME=ROGER MOORE INFO=VIALE G GALILEI 30/1, 30173 TESSERA-VENEZIA, ITALY NAME=AKIKO WAKABAYASHI INFO=2-1 HANEDA AIRPORT, OTA-KU TOKYO, JAPAN RECORD NOT FOUND. S0W1 2021188 05:04:32.24 ISF031I CONSOLE userid ACTIVATED S0W1 2021188 05:04:32.24 -D A,L S0W1 2021188 05:04:32.24 CNZ4105I 05.04.32 DISPLAY ACTIVITY 234 JOBS M/S TS USERS SYSAS INITS ACTIVE/MAX VTAM OAS 00014 00026 00020 00034 00037 00020/02000 00030 LLA LLA LLA NSW S HZR HZR IEFPROC NSW S JES2 JES2 IEFPROC NSW S VLF VLF VLF NSW S SDSF SDSF SDSF NSW S EPWFFST FFST EPWFFST NSW S HZSPROC HZSPROC HZSSTEP NSW SO VTAM VTAM VTAM NSW S RRS RRS RRS NSW S OAM OAM IEFPROC NSW S RACF RACF RACF NSW S SDSFAUX SDSFAUX SDSFAUX NSW S TCPIP TCPIP TCPIP NSW SO TN3270 TN3270 TN3270 NSW SO CSF CSF CSF NSW S TCAS TCAS TCAS OWT S SSHD SSHD *OMVSEX IN SO RSED RSED RSED OWT SO JMON JMON JMON OWT SO RSED9 STEP1 STCRSE OWT AO RSED1 STEP1 STCRSE OWT AO RSED2 STEP1 STCRSE OWT AO RSED2 STEP1 STCRSE OWT AO RSED3 STEP1 STCRSE OWT AO RSED4 STEP1 STCRSE OWT AO FTPSERVE STEP1 TCPIP OWT AO DBCGMSTR DBCGMSTR IEFPROC NSW S DBCGIRLM DBCGIRLM NSW S DBCGDBM1 DBCGDBM1 IEFPROC NSW S DBCGDIST DBCGDIST IEFPROC NSW SO DBCGADMT DBCGADMT STARTADM IN SO IZUANG1 IZUANG1 STEP1 NSW SO IZUSVR1 IZUSVR1 ZOSMF IN SO RSED1 STEP1 STCRSE OWT AO SSHD1 *OMVSEX OMVSKERN OWT AO SSHD3 STEP1 OMVSKERN IN AO TSOCMD=EX 'userid.CLIST(REXXSDSF)', RC=0 /z/userid > |