RPGコード(桁位置は正しいので、このまま画面コピーできます)
これは、或方のリクエストで作成したものです。
|
受取/戻し |
フィールド名 |
タイプ |
テキスト |
1 |
受取 |
PIJOB |
A(10) |
ジョブ名 |
2 |
PIUSR |
A(10) |
ユーザー名 |
3 |
PIJB# |
A(6) |
ジョブ番号 |
4 |
PISPLF |
A(10) |
スプールファイル名 |
5 |
戻し |
POFNUM |
A(4) |
スプール番号 |
これは、ジョブ名/ユーザー名/ジョブ番号/スプール名を渡すと、その最後のスプールの属性を取りだします。「最後」という部分は、ココで指定しています。
APIのマニュアルシステム API 解説書「10.68 第68章
スプール・ファイルおよび印刷 API」を参照してみて下さい。キーワードは、QUSRSPLAです。
尚、データ構造SA0100のサブフィールドは不要なら、削ることが出来ますが、
Z-ADD997 RCVLEN
の部分で、データ構造全体の長さをしっかり指定して下さい。
最後のパラメータは、ご自分で、増やして下さい。受け取った属性は、データ構造SA0100の中のサブフィールドにセットされます。今回は、この中のスプール番号を使いました。
長いので、テキスト(rtvsplar.lzh 2K)でもダウンロード出来ます。
H Y/ 1
I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
IDSJOBI DS
I 1 10 DSJOB
I 11 20 DSUSR
I 21 26 DSJB#
I*
I DS
I B 1 40RCVLEN
I B 5 80SPLF#
I*
ISA0100 DS
I B 1 40BYTRTN
I B 5 80BYTVAL
I 9 24 JOBID
I 25 40 SPLFID
I 41 50 JOBNAM
I 51 60 USRNAM
I 61 66 JOBNUM
I 67 76 FILNAM
I B 77 800FILNUM
I 81 90 FRMTYP
I 91 100 USRDTA
I 101 110 STATUS
I 111 120 FILAVL
I 121 130 HLDF
I 131 140 SAVF
I B 141 1440TOTPAG
I B 145 1480PAGWRT
I B 149 1520STRPAG
I B 153 1560ENDPAG
I B 157 1600LASPAG
I B 161 1640RESPRT
I B 165 1680TOTCPY
I B 169 1720CPYLFT
I B 173 1760LPI
I B 177 1800CPI
I 181 182 OUTPRI
I 183 192 OUTQNM
I 193 202 OUTQLB
I 203 209 DATFOP
I 210 215 TIMFOP
I 216 225 DEVFNA
I 226 235 DEVFLB
I 236 245 PGMOPF
I 246 255 PGMOPL
I 256 270 ACCCOD
I 271 300 PRTTXT
I B 301 3040RCDLEN
I B 305 3080MAXRCD
I 309 318 DEVCLS
I 319 328 PRTTYP
I 329 340 DOCNAM
I 341 404 FLDNAM
I 405 412 S36PRC
I 413 422 PRTFID
I 423 423 RPLUN
I 424 424 RPLCHR
I B 425 4280PAGLEN
I B 429 4320PAGWID
I B 433 4360NUMSEP
I B 437 4400OVRLIN
I 441 450 DBCSDA
I 451 460 DBCSEC
I 461 470 DBCSSO
I 471 480 DBCSCR
I B 481 4840DBCSCI
I 485 494 GRAPHI
I 495 504 CODPAG
I 505 514 FORNAM
I 515 524 FORLIB
I B 525 5280SRCDRW
I 529 538 PRTFON
I 539 544 S36SPL
I B 545 5480PAGROT
I B 549 5520JUSTIF
I 553 562 PRTBOT
I 563 572 FLDRCD
I 573 582 CTLCHR
I 583 592 ALGFRM
I 593 602 PRTQUA
I 603 612 FRMFED
I 613 683 VOLUME
I 684 700 FLABID
I 701 710 EXCTYP
I 711 720 CHRCOD
I B 721 7240TOTRCD
I B 725 7280PGPSID
I 729 738 FOVNAM
I 739 748 FOVLIB
I P 749 7565FOVOFD
I P 757 7645FOVOFA
I 765 774 BOVNAM
I 775 784 BOVLIB
I P 785 7925BOVOFD
I P 793 8005BOVOFA
I 801 810 UOM
I 811 820 PAGNAM
I 821 830 PAGLIB
I 831 840 LINSPC
I P 841 8485PNTSIZ
I P 849 8565FMRFOD
I P 857 8645FMRFOA
I P 865 8725BMRFOD
I P 873 8805BMRFOA
I P 881 8885MPGLEN
I P 889 8965MPGWID
I 897 906 MEAMTH
I 907 907 AFPRES
I 908 917 FCHSNM
I 918 927 FCHSLB
I 928 937 CDPGNM
I 938 947 CDPGLB
I 948 957 CFNTNM
I 958 967 CFNTLB
I 968 977 DCFTNM
I 978 987 DCFTLB
I 988 997 USRFIL
I*
IPBERR DS
I I 116 B 1 40BYTPRV
I I 0 B 5 80BYTAVA
I 9 15 ERRID
I 16 16 ERR###
I 17 116 INSDTA
C******************************************************
C* DEFINITION MODULE ( PLIST FIELD KLIST ) *
C******************************************************
C* :
C* DEFINE ENTRY :
C* :
C *ENTRY PLIST :
C PARM PIJOB 10 :JOB NAME
C PARM PIUSR 10 :USR NAME
C PARM PIJB# 6 :JOB #
C PARM PISPLF 10 :SPL NAME
C PARM POFNUM 4 :SPL NO
C******************************************************
C* M A I N - R O U T I N E :
C******************************************************
C Z-ADD997 RCVLEN :
C MOVE PIJOB DSJOB :
C MOVE PIUSR DSUSR :
C MOVE PIJB# DSJB# :
C* :
C CALL 'QUSRSPLA' 95 :
C PARM SA0100 :
C PARM RCVLEN :
C PARM 'SPLA0100'FMTATR 8 :
C PARM DSJOBI :
C PARM *BLANK LJOBID 16 :
C PARM *BLANK LSPLID 16 :
C PARM PISPLF :
C PARM -1 SPLF# :
C PARM PBERR :
C* :
B001 C BYTAVA IFEQ 0 ;
001 C MOVE FILNUM POFNUM :
E001 C END :
C* :
C \END TAG :
C* :
C MOVE *ON *INLR :
C RETRN : |
|