H Y/ 1
FDSPSBMD CF E WORKSTN
F RRN01 KSFILE SFL01
F KINFDS INFDSP
E****************************************************
E* A R R A Y T A B L E *
E****************************************************
E STS 1 4 30 :
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
IUSRSPC DS
I 1 10 USNAME
I 11 20 USLIB
ISIZE DS
I B 1 40USSIZE
IRCVVAR DS
I B 1 40OFFSET
I B 9 120NOENTR
I B 13 160LSTSIZ
IHEADER DS
I 1 26 QJOBH
I 1 10 JOBNMH
I 11 20 USRNMH
I 21 26 JOBNOH
IUSRTV DS
I B 1 40LENDTA
I B 5 80STRPOS
I B 13 160RCVLEN
IUSRTV2 DS
I B 1 40RCVLN2
IJB0100 DS
I 1 26 QJOBL
I 1 10 JOBNML
I 11 20 USRNML
I 27 42 IJOBID
I 43 52 STATL
I 53 53 JOBTYP
I 54 54 SUBTYP
IJBI200 DS
I 97 97 FNCTYP
I 98 107 FNCNAM
I 108 111 ACTJOB
I* PROGRAM STATUS
I SDS
I *PROGRAM V1PGID
I 91 170 ##CPF
I 244 253 V1JBID
I 254 263 V1USID
I* INFORMATION DS (DSPF)
IINFDSP DS
I 369 369 PUSHED
I B 378 3790DSRRN
I******************************************************
I* D E F I N E C O N S T A N T *
I******************************************************
I 'JOBL0100' C #JOBL
I 'JOBI0200' C #JOBI
I*
I X'33' C F3
I X'34' C F4
I X'35' C F5
I X'36' C F6
I X'37' C F7
I X'38' C F8
I X'39' C F9
I X'3A' C F10
I X'3B' C F11
I X'3C' C F12
I X'F1' C RECENT
I X'F4' C ROLDWN
I X'F5' C ROLUP
I '#SRRTVMSG3' C #RTVMG
I*
I 'ERR0001' C #INVLD
I 'ERR0002' C #NOMST
I 'ERR0003' C #DATFM
I 'ERR0004' C #RQSTD
I 'ERR0005' C #NOTBL
I 'ERR0006' C #USED
I 'ERR0007' C #NODTA
I 'ERR0008' C #INVNU
I 'ERR0009' C #EXIST
I 'ERR0010' C #UNMCH
I 'ERR0011' C #STEN
I*
I '現在、活動中..' C #ACTV
I 'ジョブ開始待ち' C #JOBQ
I 'スプールされた' C #OUTQ
I*
I '自動開始ジョブ' C #A
I 'バッチジョブ ' C #B
I '対話式ジョブ ' C #I
I 'モニタージョブ' C #M
I 'スプール読取り' C #R
I 'システムジョブ' C #S
I 'スプール書出し' C #W
I ' SCPFジョブ ' C #X
C******************************************************
C* DEFINITITON MODULE ( PLIST FIELD KLIST ) *
C******************************************************
C* :
C* DEFINE PLIST :
C* :
C *ENTRY PLIST :
C PARM PIUSER 10 :
C PARM PIJSTS 10 :
C******************************************************
C* M A I N - R O U T I N E :
C******************************************************
C \LST TAG :
C* :
C EXSR @LST :
C EXSR @CLSF :
C* :
B001 C NOENTR IFNE 0 :
001 C EXSR @GET :
E001 C END :
C* :
C EXSR @EXSF :
C* :
C F3 CABEQPUSHED \END :
C F12 CABEQPUSHED \END :
C F5 CABEQPUSHED \LST :
C* :
B001 C F6 IFEQ PUSHED :
001 C MOVEL'*JOBQ' W1JSTS P :
001 C GOTO \LST :
E001 C END :
C* :
B001 C F7 IFEQ PUSHED :
001 C MOVEL'*ACTIVE' W1JSTS P :
001 C GOTO \LST :
E001 C END :
C* :
B001 C F8 IFEQ PUSHED :
001 C MOVEL'*OUTQ' W1JSTS P :
001 C GOTO \LST :
E001 C END :
C* :
B001 C F9 IFEQ PUSHED :
001 C MOVEL'*ALL' W1JSTS P :
001 C GOTO \LST :
E001 C END :
C* :
C \END TAG :
C* :
C MOVE *ON *INLR :
C RETRN :
C******************************************************
C* S U B - R O U T I N E :
C******************************************************
C*----------------------------------------------------*
C *INZSR BEGSR :
C*----------------------------------------------------*
C* DEFINE WORK FILEDS :
C Z-ADD0 RRN01 50 :RRN OF SFL
C Z-ADD0 W1RN01 50 :RRN OF SFL
C* :
C* RETRIEVE AID DATA FROM DATA AREA :
C* :
C Z-ADD1024 USSIZE :
C MOVEL#JOBL USNAME :
C MOVEL'QTEMP' USLIB :
C* CRT USRSPC :
C CALL 'QUSCRTUS' 95 :
C PARM USRSPC :
C PARM 'LST' EXTATR 10 :
C PARM USSIZE :
C PARM ' ' USINIT 1 :
C PARM '*ALL' USAUTH 10 :
C PARM USTEXT 50 :
C* :
C MOVELPIJSTS W1JSTS 10 :
B001 C W1JSTS IFEQ *BLANK :
001 C MOVEL'*ACTIVE' W1JSTS :
E001 C END :
C* :
B001 C PIUSER IFEQ *BLANK :
001 C MOVEL'*CURRENT'PIUSER :
E001 C END :
C* :
C ENDSR :
C*----------------------------------------------------*
C @LST BEGSR :
C*----------------------------------------------------*
C MOVEL#JOBL FMTRCD 8 :
C MOVEL'*ALL' JOBNMH :
C MOVELPIUSER USRNMH :
C MOVEL'*ALL' JOBNOH :
C MOVELW1JSTS JOBSTS 10 :
C* :
C CALL 'QUSLJOB' 95 :
C PARM USRSPC :
C PARM FMTRCD 8 :
C PARM QJOBH :
C PARM JOBSTS :
C* :
C Z-ADD16 LENDTA :
C Z-ADD125 STRPOS :
C Z-ADD111 RCVLN2 :
C* RTV FROM USRPSC :
C CALL 'QUSRTVUS' 95 :
C PARM USRSPC :
C PARM STRPOS :
C PARM LENDTA :
C PARM RCVVAR :
C* :
C Z-ADDOFFSET STRPOS :
C ADD 1 STRPOS :
C Z-ADDLSTSIZ LENDTA :
C Z-ADD54 RCVLEN :
C* :
C ENDSR :
C*----------------------------------------------------*
C @CLSF BEGSR :CLEAR SFL
C*----------------------------------------------------*
C Z-ADD0 RRN01 :
C Z-ADD0 W1RN01 :
C* :
C MOVE *ON *IN62 :
C WRITECTL01 :SFLCLR
C MOVE *OFF *IN62 :
C* :
C ENDSR :
C*----------------------------------------------------*
C @GET BEGSR :
C*----------------------------------------------------*
C Z-ADD1 W1CNT 50 :
C* :
B001 C W1CNT DOWLENOENTR :
001 C EXSR @DTL :
001 C ADD 1 W1CNT :
001 C ADD LSTSIZ STRPOS :
E001 C END :
C* :
C MOVE *ON *IN63 :
C Z-ADD1 H1SRCD :
C* :
C ENDSR :
C*----------------------------------------------------*
C @DTL BEGSR :
C*----------------------------------------------------*
C MOVE *OFF *IN63 :
C MOVE *OFF *IN95 :
C CALL 'QUSRTVUS' 95 :
C PARM USRSPC :
C PARM STRPOS :
C PARM LENDTA :
C PARM JB0100 :
C* :
C MOVEL#JOBI FMTRCD 8 :
C* :
C CALL 'QUSRJOBI' 95 :
C PARM JBI200 :
C PARM RCVLN2 :
C PARM FMTRCD :
C PARM '*INT' JOBINF 26 :
C PARM IJOBID :
C* :
B001 C *IN95 IFEQ *OFF :
*001 C JOBTYP ANDEQ'B' :
*001 C SUBTYP ANDEQ*BLANK :
001 C EXSR @TOSF :
001 C ADD 1 RRN01 :
001 C WRITESFL01 :
E001 C END :
C* :
C ENDSR :
C*----------------------------------------------------*
C @TOSF BEGSR : LE
C*----------------------------------------------------*
C MOVE *BLANK S1ACTS :
C MOVE *BLANK S1FUNC :
C MOVE *BLANK S1JTYP :
C MOVE *BLANK S1JSTS :
C* :
C MOVE ACTJOB S1ACTS :
C MOVE *OFF *IN30 :
B001 C ACTJOB IFEQ 'MSGW' :
001 C MOVE *ON *IN30 :
E001 C END :
C* :
B001 C SELEC :
001 C FNCTYP WHEQ 'C' :
001 C MOVEL'CMD-' S1FUNC :
001 C FNCTYP WHEQ 'D' :
001 C MOVEL'DLY-' S1FUNC :
001 C FNCTYP WHEQ 'G' :
001 C MOVEL'GRP-' S1FUNC :
001 C FNCTYP WHEQ 'I' :
001 C MOVEL'IDX-' S1FUNC :
001 C FNCTYP WHEQ 'L' :
001 C MOVEL'LOG-' S1FUNC :
001 C FNCTYP WHEQ 'M' :
001 C MOVEL'MRT-' S1FUNC :
001 C FNCTYP WHEQ 'N' :
001 C MOVEL'MNU-' S1FUNC :
001 C FNCTYP WHEQ 'O' :
001 C MOVEL'I/O-' S1FUNC :
001 C FNCTYP WHEQ 'P' :
001 C MOVEL'PGM-' S1FUNC :
001 C FNCTYP WHEQ 'R' :
001 C MOVEL'PRC-' S1FUNC :
001 C FNCTYP WHEQ '*' :
001 C MOVEL'* -' S1FUNC :
E001 C END :
C CAT FNCNAM:0 S1FUNC :
C* :
B001 C SELEC :
001 C JOBTYP WHEQ 'A' :
001 C MOVEL#A S1JTYP :
001 C JOBTYP WHEQ 'B' :
001 C MOVEL#B S1JTYP :
001 C JOBTYP WHEQ 'I' :
001 C MOVEL#I S1JTYP :
001 C JOBTYP WHEQ 'M' :
001 C MOVEL#M S1JTYP :
001 C JOBTYP WHEQ 'R' :
001 C MOVEL#R S1JTYP :
001 C JOBTYP WHEQ 'S' :
001 C MOVEL#S S1JTYP :
001 C JOBTYP WHEQ 'W' :
001 C MOVEL#W S1JTYP :
001 C JOBTYP WHEQ 'X' :
001 C MOVEL#X S1JTYP :
E001 C END :
C* :
B001 C SELEC :
001 C STATL WHEQ '*ACTIVE' :
001 C MOVEL#ACTV S1JSTS :
001 C STATL WHEQ '*JOBQ' :
001 C MOVEL#JOBQ S1JSTS :
001 C STATL WHEQ '*OUTQ' :
001 C MOVEL#OUTQ S1JSTS :
E001 C END :
C* :
C ENDSR :
C*----------------------------------------------------*
C @EXSF BEGSR :EXFMT SUBFILE
C*----------------------------------------------------*
C* CHECK EXISTENCE OF REOCRDS IN SUBFILE
B001 C RRN01 IFNE 0 :
001 C MOVE *ON *IN60 :SFLDSP ON
+001 C ELSE :
001 C MOVEL#NODTA V1MSG# :
001 C EXSR @MSG :ERR CTRL
001 C MOVE *OFF *IN60 :SFLDSP OFF
E001 C END :
C* :
C MOVE *BLANK V1STSS :
B001 C SELEC :
001 C W1JSTS WHEQ '*JOBQ' :
001 C MOVELSTS,1 V1STSS :
001 C W1JSTS WHEQ '*ACTIVE' :
001 C MOVELSTS,2 V1STSS :
001 C W1JSTS WHEQ '*OUTQ' :
001 C MOVELSTS,3 V1STSS :
001 C W1JSTS WHEQ '*ALL' :
001 C MOVELSTS,4 V1STSS :
E001 C END :
C* :
C MOVE *ON *IN61 :SFLDSPCTL ON
C MOVE *ON *IN64 :SFLNXTCHG ON
C* :
C WRITEFTR01 :
C EXFMTCTL01 :
C* :
C MOVEA'00' *IN,60 :
C* MOVE TO TOP OF SFL RRN TO SFLRCDNBR
B001 C DSRRN IFNE 0 :
001 C Z-ADDDSRRN H1SRCD :
E001 C END
C* :
C
C* MOVE TO TOP OF SFL RRN TO SFLRCDNBR
B001 C DSRRN IFNE 0 :
001 C Z-ADDDSRRN H1SRCD :
E001 C END :
C* :
C EXSR @EROFF :ERR OFF
C* :
C ENDSR :
C*----------------------------------------------------*
C @MSG BEGSR :ERR ROUTINE
C*----------------------------------------------------*
B001 C V1MSG# IFEQ 'CPFMSG' :
001 C MOVEL##CPF V1MSG :
+001 C ELSE :
001 C MOVELV1MSG# PSMSG# 7 :
001 C CALL #RTVMG 99 :
001 C PARM PSMSG# :
001 C PARM 'QUSERMSG'PSMSGF 10 :
001 C PARM '*LIBL' PSMSGL 10 :
001 C PARM PSMDTA 80 :
001 C PARM PRMSG 78 :
001 C PARM PRMLEN 50 :
001 C PARM PRMSEV 20 :
001 C MOVELPRMSG V1MSG :
E001 C END :
C* :
C MOVE *OFF *IN80 :
B001 C PRMSEV IFGT 0 :
001 C MOVE *ON *IN80 :
E001 C END :
C* :
C MOVE *BLANK PSMSG# :
C MOVE *BLANK PSMDTA :
C MOVE *BLANK PRMSG :
C Z-ADD0 PRMLEN :
C Z-ADD0 PRMSEV :
C* :
C ENDSR :
C*----------------------------------------------------*
C @EROFF BEGSR :ERR OFF
C*----------------------------------------------------*
C MOVE *OFF W1ERR 1 :
C MOVE *OFF *IN80 :ALARM OFF
C MOVE *BLANK V1MSG# :ERR MSG ID OFF
C MOVE *BLANK V1MSG :ERR MSG DATA OFF
C* :
C ENDSR :
**
実行開始待ちのジョブリスト
活動中ジョブリスト
スプール化されたジョブリスト
すべてののジョブリスト
|