105 I B114511480OFFSET I B114911520OPT I B115311560LENOPT I 11571411 DEFDAT I 14121421 OBJNAM I 14221431 OBJLNM I 14321441 OBJTYP I 14421444 RES I P144514525PONTSI I P145314605FNTPOS I P146114685DBCSSZ I B146914720AUXSTO I B147314760SPLFSI I B147714800SPLFSM I B148114840INTPRT I 14851485 SECMET I 14861486 AUTMET I 14871493 DATWTR I 14941499 TIMWTR I 15001506 DCOMP I 15071512 TCOMP I 15131520 JOBSYS I*** I 'MATSUP QUSRSYS 'C OUTQ# C****************************************************** C* M A I N - R O U T I N E : C****************************************************** C* : C* �@ユーザー・スペースの作成 : C* : C Z-ADD1024 USSIZE : C MOVEL'SPLINF' USNAME : C MOVEL'QTEMP' USLIB : C* : C CALL 'QUSCRTUS' 95 : C PARM USRSPC : C PARM 'SPL' EXTATR 10 : C PARM USSIZE : C PARM X'00' USINIT 1 : C PARM '*ALL' USAUTH 10 : C PARM USTEXT 50 : C* : C* �Aユーザー・スペースにデータを展開 : C* : C CALL 'QUSLSPL' 95 : C PARM USRSPC : C PARM 'SPLF0100'FMTRCD 8 : C PARM 'USER 'USER 10 : C PARM '*ALL' OUTQ 20 : C PARM '*ALL' FRMTYP 10 : C PARM '*ALL' USRDTA 10 : C* : C *IN95 CABEQ*ON $END : C* : C* �B総称見出しからデータを取り出す : C* : C CALL 'QUSRTVUS' 95 : C PARM USRSPC : C PARM 125 STRPOS : C PARM 16 LENDTA : C PARM GENHED : C* : C *IN95 CABEQ*ON $END : C NOENTH CABEQ0 $END : C* : C* �Cリストセクション読み込みの初期化　 : C* : C Z-ADD1 W1CNT 50 : C* : C Z-ADDDTLOFS STRPOS : C ADD 1 STRPOS : C Z-ADDDTLSIZ LENDTA : C* : C* �Dリストセクションの各項目取り出し : C* : B001 C W1CNT DOWLENOENTH : 001 C* : 001 C CALL 'QUSRTVUS' 95 : 001 C