104 図3　APIを使用して出力待ち行列情報を取得するプログラム H Y F************************************************************* F*ＤＥＦＩＮＥ F************************************************************* FUSRSPLP O E K DISK F* IUSRSPC DS I 1 10 USNAME I 11 20 USLIB IGENHED DS I B 1 40DTLOFS I B 5 80LSTSIZ I B 9 120NOENTH I B 13 160DTLSIZ I DS I B 1 40USSIZE I B 5 80LENDTA I B 9 120STRPOS I DS I B 1 40RCVLEN I B 5 80SPLF# ISF0100 DS I 1 10 USRNML I 11 30 OUTQL I 11 20 OUTQNL I 21 30 OUTQLL I 31 40 FRMTYL I 41 50 USRDTL I 51 66 JOBID I 67 82 SPLFID ISA0100 DS I B 1 40BYTESR I B 5 80BYTESA I 9 24 LJOBID I 25 40 LSPLID 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 STAT I 111 120 FILAVA I 121 130 HOLDF I 131 140 SAVF I B 141 1440TOTALP I B 145 1480BEGWRT I B 149 1520START I B 153 1560END I B 157 1600LASTPG I B 161 1640RESTAT I B 165 1680COPYS I B 169 1720PRODUC I B 173 1760LINPER I B 177 1800CHRPER I 181 182 PRIORT I 183 192 OUTQNM I 193 202 OUTQLB I 204 209 DATFOP I 210 215 TIME I 216 225 DVFINM I 226 235 DVFLNM I 236 245 POFINM I 246 255 POFLNM I 256 270 ACCCD I 271 300 TEXT I B 301 3040RECLEN I B 305 3080MAXREC I 309 318 DEVTYP I 319 328 PRDVTP I 329 340 DOCNAM I 341 404 FLDNAM I 405 412 S36PNM I 413 422 PRFIDE I 423 423 REUNCH I 424 424 REMCHR I B 425 4280PAGLEN I B 429 4320PAGWID I B 433 4360NMSEP I B 437 4400OVFLN I 441 450 DBCSDA I 451 460 DBCSEX I