H DEBUG DFTNAME(SQLPRINT) DATEDIT(*YMD/) F********** SQL 担当者マスター一覧表 ***************************** FQPRINT O F 132 PRINTER OFLIND(*INOF) F FORMLEN(66) F FORMOFL(62) F***************************************************************** *[ COMPILE ] * CRTSQLRPGI QTEMP/SQLPRINT SRCFILE(QTRSRC/QRPGLESRC) COMMIT(*NONE) * OBJTYPE(*MODULE) OUTPUT(*PRINT) * CRTPGM QTROBJ/SQLPRINT MODULE(QTEMP/SQLPRINT) ACTGRP(*NEW) AUT(*ALL) * *[ 実行 ] * CALL QTROBJ/SQLPRINT D HDR S 32 DIM(1) CTDATA PERRCD(1) 見出し D LIN S 1 DIM(132) D KENSU S 4S 0 D TBCODE_B S 2A D*( データ・ベース外部データ構造 ) D FMT001 E DS EXTNAME(TANTOM) D FMT002 E DS EXTNAME(BUKAM) D RCDDTA DS OCCURS(9999) D VAR1 1 1024 D N S 4B 0 C****************************************************** C* SQL 文のカーソルの前準備 C****************************************************** C* SELECT 文によってカーソル C1 を用意 C/EXEC SQL DECLARE C1 CURSOR FOR C+ SELECT TACODE, TTNAMJ, TBCODE, TTNAM, BKNAME C+ FROM QTRFIL/TANTOM, QTRFIL/BUKAM C+ WHERE TBCODE = BKCODE C+ ORDER BY TBCODE, TACODE C/END-EXEC C* カーソルをオープン C/EXEC SQL OPEN C1 C/END-EXEC C****************************************************** C* 明 細 演 算 C****************************************************** C/EXEC SQL WHENEVER NOT FOUND GOTO EOF C/END-EXEC C 1 DO *HIVAL N C N OCCUR RCDDTA C/EXEC SQL C+ FETCH C1 INTO :TACODE, :TTNAMJ, :TBCODE, :TTNAM, :BKNAME C/END-EXEC C*( 明細印刷 ) C* TACODE CAT(P) TTNAMJ:0 RCDDTA C MOVEL(P) TACODE RCDDTA C CAT TTNAMJ:0 RCDDTA C/EXEC SQL SET RESULT SETS ARRAY :RCDDTA FOR :N ROWS C/END-EXEC C*------------------------------------------------------------------ C SETON 42 C EXSR OUTPUT C*------------------------------------------------------------------ C ADD 1 KENSU C ENDDO C EOF TAG C* カーソルをクローズ C/EXEC SQL CLOSE C1 C/END-EXEC C END TAG C*------------------------------------------------------------------ C SETON 49 C EXSR OUTPUT C*------------------------------------------------------------------ C SETON LR C****************************************************** C *INZSR BEGSR C****************************************************** C* 初期のみの実行 C CLEAR FMT001 C MOVEA *ALL'-' LIN C INZEND ENDSR C****************************************************** C OUTPUT BEGSR C****************************************************** C TBCODE IFNE TBCODE_B C SETOFF 40 C ENDIF C N40 SETON 4041 C EXCEPT C OF SETOFF 40OF C SETOFF 414243 C SETOFF 444546 C SETOFF 474849 C MOVE TBCODE TBCODE_B C ENDSR OQPRINT E 41 2 06 O UDATE Y 8 O 14 ' 作成 ' O HDR(1) 82 O 128 'PAGE.' O PAGE Z 131 O E 41 1 O 12 ' 部課コード ' O TBCODE 18 O 24 ' 部課名 ' O BKNAME 36 O E 41 1 O LIN 132 O E 41 1 O 14 ' 担当者コード ' O 24 ' 担当者名 ' O 44 ' 略名 ' O E 41 1 O LIN 132 O E 42 2 O TACODE 5 O TTNAMJ 36 O TTNAM 46 O E 49 1 O 40 ' 処理件数 ' O 57 '. . . . . . . . .' O KENSU 2 65 ** HDR 担当者一覧表