📄 rptdd705
字号:
*****************************************************************
* PROGRAM SPECIFICATION *
*---------------------------------------------------------------*
* SYSTEM NAME : *
* PROGRAM TYPE : *
* PROGRAM NAME : *
* AUTHOR : *
* CREATED DATE : *
* LAST UPD. DATE: *
* VERSION NO : *
*---------------------------------------------------------------*
* FUNCTIONS : *
*---------------------------------------------------------------*
* MODIFICATION HISTORY *
*---------------------------------------------------------------*
* SEQ DESCRIPTION BY DATE *
* 001 *
*---------------------------------------------------------------*
* INPUT : *
* *
*---------------------------------------------------------------*
* OUTPUT : *
* *
*---------------------------------------------------------------*
* SUBPROGRAM : *
*---------------------------------------------------------------*
*****************************************************************
*
******************************
IDENTIFICATION DIVISION.
******************************
PROGRAM-ID. RPTDD705.
AUTHOR. HISUN.
DATE-WRITTEN. 2007-03-19.
*
******************************
ENVIRONMENT DIVISION.
******************************
CONFIGURATION SECTION.
INPUT-OUTPUT SECTION.
*
******************************
FILE-CONTROL.
******************************
SELECT FIN ASSIGN TO FIN
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS WS-FIN-STS.
SELECT FOUT ASSIGN TO FOUT
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL
FILE STATUS IS WS-FOUT-STS.
*
******************************
DATA DIVISION.
******************************
*
******************************
FILE SECTION.
******************************
FD FIN RECORDING MODE IS F.
COPY INCD705 REPLACING ==:XXXX:== BY ==FIN==.
*
FD FOUT RECORDING MODE IS F.
01 FOUT-REC.
03 FOUT-NEW-PAGE PIC X.
03 FOUT-LINE PIC X(132).
*
******************************
WORKING-STORAGE SECTION.
******************************
*
******************************
* CUSTOM CONSTANT *
******************************
77 CUST-PGM-NAME PIC X(08) VALUE 'RPTDD705'.
77 PGM-SCSBWLOG PIC X(08) VALUE 'SCSBWLOG'.
77 PGM-SCSBJPRM PIC X(08) VALUE 'SCSBJPRM'.
77 PGM-SCSBRBDT PIC X(08) VALUE 'SCSBRBDT'.
*
******************************
* COMMUNICATION AREA *
******************************
COPY SCRJPRM.
*COPY SCRPBDT.
COPY SCCFSTS.
COPY SCCBERR.
*COPY SCCBLOG.
COPY SCRRBDT.
*
******************************
* PROGRAM VARIABLES *
******************************
01 WS-VARIABLES.
*
******************************
* FILE STATUS *
******************************
03 WS-FILE-STATUS.
05 WS-FIN-STS PIC X(02).
05 WS-FOUT-STS PIC X(02).
*
******************************
* JUSTIFY VARIABLES *
******************************
03 HRD-JUST-ADDR POINTER.
03 HRD-JUST-LEN PIC S9(04) COMP.
03 HRD-JUST-FIRST PIC S9(04) COMP.
03 HRD-JUST-LAST PIC S9(04) COMP.
03 HRD-JUST-STEP PIC S9(04) COMP.
03 HRD-JUST-I PIC S9(04) COMP.
03 HRD-JUST-J PIC S9(04) COMP.
*
******************************
* PAGE NUMBERS *
******************************
03 HRD-PAGE-NO-1 PIC S9(8) PACKED-DECIMAL VALUE
0.
*
******************************
* COUNT VARIABLES *
******************************
*
******************************
* SUM VARIABLES *
******************************
*
******************************
* CONDITION FLAG *
******************************
*
03 WS-COND-FLAG.
05 HRD-FIN-OPEN-FLG PIC X(01) VALUE SPACE.
88 HRD-FIN-OPENED VALUE 'Y'.
05 HRD-FOUT-OPEN-FLG PIC X(01) VALUE SPACE.
88 HRD-FOUT-OPENED VALUE 'Y'.
05 HRD-EOF-FLG PIC X(01) VALUE SPACE.
88 HRD-EOF VALUE 'Y'.
05 HRD-NEW-PAGE-FLG PIC X(01) VALUE SPACE.
88 HRD-NEW-PAGE VALUE 'Y'.
05 HRD-EMPTY-FLG PIC X(01) VALUE SPACE.
88 HRD-EMPTY VALUE 'Y'.
*
******************************
* REPORT VARIABLES *
******************************
03 HRD-KEY-BREAK PIC 9(02).
03 HRD-LC PIC S9(8) PACKED-DECIMAL VALUE
0.
03 HRD-LC2 PIC S9(8) PACKED-DECIMAL VALUE
0.
03 HRD-BROKEN-DETAIL PIC X VALUE SPACE.
03 HRD-TMP-I PIC S9(8) PACKED-DECIMAL.
03 HRD-TOTAL-INDEX PIC S9(8) PACKED-DECIMAL.
03 HRD-STICK PIC S9(8) PACKED-DECIMAL.
03 HRD-FILLTO PIC S9(8) PACKED-DECIMAL.
03 HRD-KEY-INDEX PIC S9(8) PACKED-DECIMAL.
*
******************************
* ORIGINAL VARIABLES *
******************************
03 HRD-LAST.
05 HRD-LAST-KEY.
07 HRD-LAST-BR PIC X(5) VALUE SPACE.
07 HRD-LAST-CCY-CODE PIC X(6) VALUE SPACE.
05 HRD-LAST-INVV-ACCT-NO PIC X(17) VALUE SPACE.
05 HRD-LAST-INVT-VOLUME-NO PIC X(3) VALUE SPACE.
05 HRD-LAST-INVT-SEQUENCE-NO PIC X(5) VALUE SPACE.
05 HRD-LAST-CUSVAA-NAME PIC X(60) VALUE SPACE.
05 HRD-LAST-INVM-CURR-BAL PIC S9(13)V9(3) PACKED-DECIMAL
VALUE 0.
05 HRD-LAST-INVE-VOUCHER-NO PIC X(12) VALUE SPACE.
03 HRD-THIS.
05 HRD-THIS-KEY.
07 HRD-THIS-BR PIC X(5) VALUE SPACE.
07 HRD-THIS-CCY-CODE PIC X(6) VALUE SPACE.
05 HRD-THIS-INVV-ACCT-NO PIC X(17) VALUE SPACE.
05 HRD-THIS-INVT-VOLUME-NO PIC X(3) VALUE SPACE.
05 HRD-THIS-INVT-SEQUENCE-NO PIC X(5) VALUE SPACE.
05 HRD-THIS-CUSVAA-NAME PIC X(60) VALUE SPACE.
05 HRD-THIS-INVM-CURR-BAL PIC S9(13)V9(3) PACKED-DECIMAL
VALUE 0.
05 HRD-THIS-INVE-VOUCHER-NO PIC X(12) VALUE SPACE.
03 HRD-NEXT.
05 HRD-NEXT-KEY.
07 HRD-NEXT-BR PIC X(5) VALUE SPACE.
07 HRD-NEXT-CCY-CODE PIC X(6) VALUE SPACE.
05 HRD-NEXT-INVV-ACCT-NO PIC X(17) VALUE SPACE.
05 HRD-NEXT-INVT-VOLUME-NO PIC X(3) VALUE SPACE.
05 HRD-NEXT-INVT-SEQUENCE-NO PIC X(5) VALUE SPACE.
05 HRD-NEXT-CUSVAA-NAME PIC X(60) VALUE SPACE.
05 HRD-NEXT-INVM-CURR-BAL PIC S9(13)V9(3) PACKED-DECIMAL
VALUE 0.
05 HRD-NEXT-INVE-VOUCHER-NO PIC X(12) VALUE SPACE.
*
******************************
* CALCULATING VARIABLES *
******************************
03 HRD-C-AC-DATE PIC 9(8) VALUE 0.
03 HRD-C-BR-NAME PIC X(40) VALUE SPACE.
03 HRD-C-CCY PIC X(3) VALUE SPACE.
03 HRD-C-IDX-AC-DATE PIC 9(8) VALUE 0.
03 HRD-C-IDX-BR PIC X(5) VALUE SPACE.
03 HRD-C-IDX-RPT-ID PIC X(8) VALUE SPACE.
03 HRD-C-IDX-UPORG PIC 9(5) VALUE 0.
03 HRD-C-PAGE PIC 9(5) PACKED-DECIMAL VALUE
0.
03 HRD-C-RPT-ID PIC X(8) VALUE SPACE.
03 HRD-C-RPT-NAME PIC X(80) VALUE SPACE.
03 HRD-C-RPT-NAME-LINE PIC X(84) VALUE SPACE.
*
******************************
* OUTPUT LINES *
******************************
03 HRD-L0.
05 FILLER PIC X(10) VALUE '@OD@|@T@|O'.
05 FILLER PIC X(6) VALUE 'RG-ID:'.
05 HRD-L0-IDX-BR PIC X(5).
05 HRD-L0R-IDX-BR REDEFINES HRD-L0-IDX-BR PIC X(5).
05 FILLER PIC X(7) VALUE '|UPORG:'.
05 HRD-L0-IDX-UPORG PIC 99999.
05 HRD-L0R-IDX-UPORG REDEFINES HRD-L0-IDX-UPORG PIC X(5).
05 FILLER PIC X(8) VALUE '|RPT-ID:'.
05 HRD-L0-IDX-RPT-ID PIC X(8).
05 HRD-L0R-IDX-RPT-ID REDEFINES HRD-L0-IDX-RPT-ID PIC
X(8).
05 FILLER PIC X(5) VALUE '|DAT:'.
05 HRD-L0-IDX-AC-DATE PIC 9999/99/99.
05 HRD-L0R-IDX-AC-DATE REDEFINES HRD-L0-IDX-AC-DATE PIC
X(10).
03 HRD-L1.
05 FILLER PIC X(113) VALUE SPACE.
05 FILLER PIC X(1) VALUE '('.
05 FILLER PIC X(1) VALUE SPACE.
05 HRD-L1-BR PIC X(5).
05 HRD-L1R-BR REDEFINES HRD-L1-BR PIC X(5).
05 FILLER PIC X(1) VALUE '-'.
05 HRD-L1-RPT-ID PIC X(8).
05 HRD-L1R-RPT-ID REDEFINES HRD-L1-RPT-ID PIC X(8).
05 FILLER PIC X(1) VALUE SPACE.
05 FILLER PIC X(1) VALUE ')'.
03 HRD-L2.
05 FILLER PIC X(26) VALUE SPACE.
05 HRD-L2-RPT-NAME PIC X(80).
05 HRD-L2R-RPT-NAME REDEFINES HRD-L2-RPT-NAME PIC X(80).
03 HRD-L3.
05 FILLER PIC X(24) VALUE SPACE.
05 HRD-L3-RPT-NAME-LINE PIC X(84).
05 HRD-L3R-RPT-NAME-LINE REDEFINES HRD-L3-RPT-NAME-LINE
PIC X(84).
03 HRD-L5.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'4E9B'.
05 FILLER PIC X(2) VALUE X'4D59'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(1) VALUE ':'.
05 FILLER PIC X(1) VALUE SPACE.
05 HRD-L5-BR-NAME PIC X(40).
05 HRD-L5R-BR-NAME REDEFINES HRD-L5-BR-NAME PIC X(40).
05 FILLER PIC X(6) VALUE SPACE.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'54D4'.
05 FILLER PIC X(2) VALUE X'53D9'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(1) VALUE ':'.
05 FILLER PIC X(1) VALUE SPACE.
05 HRD-L5-AC-DATE PIC 9999/99/99.
05 HRD-L5R-AC-DATE REDEFINES HRD-L5-AC-DATE PIC X(10).
05 FILLER PIC X(16) VALUE SPACE.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'4E96'.
05 FILLER PIC X(2) VALUE X'4972'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(1) VALUE ':'.
05 FILLER PIC X(1) VALUE SPACE.
05 HRD-L5-CCY PIC X(3).
05 HRD-L5R-CCY REDEFINES HRD-L5-CCY PIC X(3).
05 FILLER PIC X(19) VALUE SPACE.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'59B2'.
05 FILLER PIC X(2) VALUE X'51EA'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(1) VALUE ':'.
05 FILLER PIC X(1) VALUE SPACE.
05 HRD-L5-PAGE PIC ZZZZ9.
05 HRD-L5R-PAGE REDEFINES HRD-L5-PAGE PIC X(5).
03 HRD-L6.
05 FILLER PIC X(1) VALUE SPACE.
03 HRD-L7.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'5B6B'.
05 FILLER PIC X(2) VALUE X'4DC4'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(13) VALUE SPACE.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'49E0'.
05 FILLER PIC X(2) VALUE X'4DC4'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'58F1'.
05 FILLER PIC X(2) VALUE X'4DC4'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(1) VALUE SPACE.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'4E47'.
05 FILLER PIC X(2) VALUE X'529C'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(56) VALUE SPACE.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'5A81'.
05 FILLER PIC X(2) VALUE X'4BED'.
05 FILLER PIC X VALUE X'0F'.
05 FILLER PIC X(18) VALUE SPACE.
05 FILLER PIC X VALUE X'0E'.
05 FILLER PIC X(2) VALUE X'53BD'.
05 FILLER PIC X(2) VALUE X'5BA3'.
05 FILLER PIC X(2) VALUE X'4DC4'.
05 FILLER PIC X(2) VALUE X'51EA'.
05 FILLER PIC X VALUE X'0F'.
03 HRD-L8.
05 FILLER PIC X(1) VALUE SPACE.
05 HRD-L8-INVV-ACCT-NO PIC X(17).
05 HRD-L8R-INVV-ACCT-NO REDEFINES HRD-L8-INVV-ACCT-NO PIC
X(17).
05 FILLER PIC X(2) VALUE SPACE.
05 HRD-L8-INVT-VOLUME-NO PIC X(3).
05 HRD-L8R-INVT-VOLUME-NO REDEFINES HRD-L8-INVT-VOLUME-NO
PIC X(3).
05 FILLER PIC X(3) VALUE SPACE.
05 HRD-L8-INVT-SEQUENCE-NO PIC X(5).
05 HRD-L8R-INVT-SEQUENCE-NO REDEFINES
HRD-L8-INVT-SEQUENCE-NO PIC X(5).
05 FILLER PIC X(2) VALUE SPACE.
05 HRD-L8-CUSVAA-NAME PIC X(60).
05 HRD-L8R-CUSVAA-NAME REDEFINES HRD-L8-CUSVAA-NAME PIC
X(60).
05 FILLER PIC X(2) VALUE SPACE.
05 HRD-L8-INVM-CURR-BAL PIC --,---,---,---,--9.999.
05 HRD-L8R-INVM-CURR-BAL REDEFINES HRD-L8-INVM-CURR-BAL
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -