📄 extext
字号:
******************************************************************
* (C) COPYRIGHT *
* NO PART OF THIS PROGRAM MAY *
* BE PHOTOCOPIED, REPRODUCED, TRANSLATED TO ANOTHER *
* PROGRAM LANGUAGE OR USED IN ANY WAY WITHOUT THE *
* PROGRAM LANGUAGE OR USED IN ANY WAY WITHOUT THE *
* PRIOR WRITTEN CONSENT OF FINANCIAL NETWORK SERVICES *
* OR THE AUTHORISED SELLING AGENT. *
*----------------------------------------------------------------*
*ADDRESS: *
* *
* *
* *
******************************************************************
******************************************************************
******************************************************************
*** ***
*** SYSTEM:- BROKERAGE SYSTEM ***
*** ***
*** MODULE : DATA EXTRACTION ***
*** ***
*** PROGRAM : EXTEXT ***
*** ***
*** PURPOSE : GENERATE REPORT VIA EXTRACTING FIELDS FROM ***
*** BANCS TABLES ***
*** ***
*** FUNCTION: TO EXTRACT FIELDS FROM TABLES OR FILES FOR ***
*** BACKOFFICE AND PERIPHERY SYSTEMS TO USE THEM. ***
*** ***
******************************************************************
******************************************************************
* P R O G R A M H I S T O R Y *
* ------------------------------ *
* *
* PROGRAMMERS INITIALS TOGETHER WITH THE "SPR" NUMBER MUST BE *
* REFLECTED IN COLUMNS 73-80 OF EVERY LINE/S CHANGED OR ADDED. *
* *
* PROGRAMMER : DATE :SPR NO :COMMENTS *
*----------------------------------------------------------------*
* : : :NEW PROGRAM *
*----------------------------------------------------------------*
******************************************************************
**************************************
IDENTIFICATION DIVISION.
**************************************
*
PROGRAM-ID. EXTEXT .
AUTHOR. MARTIN.MA.
* DESC. EXTRACT FIELDS FROM BANCS TABLES AND FILES
INSTALLATION.
DATE-WRITTEN. 25-Feb-2007.
DATE-COMPILED.
*
**************************************
ENVIRONMENT DIVISION.
**************************************
*
**********************************
CONFIGURATION SECTION.
**********************************
SOURCE-COMPUTER. ES-9000.
OBJECT-COMPUTER. ES-9000.
**********************************
**********************************
INPUT-OUTPUT SECTION.
**********************************
*
FILE-CONTROL.
*
SELECT FILNAM1 ASSIGN TO FILNAM1
FILE STATUS IS WS-FILNAM1-STATUS.
*
SELECT FILNAM2 ASSIGN TO FILNAM2
FILE STATUS IS WS-FILNAM2-STATUS.
*
SELECT FNAME1 ASSIGN TO FNAME1
FILE STATUS IS WS-FNAME1-STATUS.
*
SELECT NAMEFF ASSIGN TO NAMEFF
FILE STATUS IS WS-NAMEFF-STATUS.
*
**************************************
DATA DIVISION.
**************************************
*
FILE SECTION.
*
FD FILNAM1 RECORDING MODE IS F.
COPY FILCNAM1.
*
FD FILNAM2 RECORDING MODE IS F.
COPY FILCNAM2.
*
FD FNAME1 RECORDING MODE IS F.
COPY F1CPYBK.
*
FD NAMEFF RECORDING MODE IS F.
COPY COF2CPYBK.
*
********************************
WORKING-STORAGE SECTION.
********************************
************************************** ***************************
* CONSTANT DECLARATION *
************************************** ***************************
*
************************************* ****************************
* FILE-XXXXXXXX : FILE NAME OF XXXXXX XX *
* PGM-UTDB2ER : PROGRAM NAME OF UTD B2ER *
*************************************** **************************
*
77 PGM-XXXXXXXX PIC X(08) VALUE 'XXXXXXXX'.
77 PGM-UTDB2ER PIC X(08) VALUE 'UTDB2ER '.
77 TBL-DBTABL01 PIC X(08) VALUE 'DBTABL01'.
77 TBL-DBTABL02 PIC X(08) VALUE 'DBTABL02'.
77 TBL-DBTABL03 PIC X(08) VALUE 'DBTABL03'.
77 FILE-FILNAM1 PIC X(08) VALUE 'FILNAM1 '.
77 FILE-FILNAM2 PIC X(08) VALUE 'FILNAM2 '.
77 FILE-FNAME1 PIC X(08) VALUE 'FNAME1 '.
77 FILE-NAMEFF PIC X(08) VALUE 'NAMEFF '.
77 K-START-MESSAGE PIC X(15) VALUE 'EXTEXT START'.
77 K-PGM-ID PIC X(08) VALUE 'EXTEXT '.
77 K-END-MESSAGE PIC X(14) VALUE 'EXTEXT END '.
77 K-RETURN-NORMAL PIC X(02) VALUE '00'.
77 K-RETURN-WARNING PIC X(02) VALUE '04'.
77 K-RETURN-ABNORMAL PIC X(02) VALUE '08'.
*
**************************
* FILE & PROCESS STATUS *
**************************
*
01 WS-FILE-STS-AREA.
03 WS-FILNAM1-STATUS PIC 9(02) VALUE 00.
88 WS-FILNAM1-SUCCESSFUL VALUE 00.
88 WS-FILNAM1-EOF VALUE 10.
88 WS-FILNAM1-ACCEPTABLE VALUE 00 10.
03 WS-FILNAM2-STATUS PIC 9(02) VALUE 00.
88 WS-FILNAM2-SUCCESSFUL VALUE 00.
88 WS-FILNAM2-EOF VALUE 10.
88 WS-FILNAM2-ACCEPTABLE VALUE 00 10.
03 WS-FNAME1-STATUS PIC 9(02) VALUE 00.
88 WS-FNAME1-SUCCESSFUL VALUE 00.
88 WS-FNAME1-EOF VALUE 10.
88 WS-FNAME1-ACCEPTABLE VALUE 00 10.
03 WS-NAMEFF-STATUS PIC 9(02) VALUE 00.
88 WS-NAMEFF-SUCCESSFUL VALUE 00.
88 WS-NAMEFF-EOF VALUE 10.
88 WS-NAMEFF-ACCEPTABLE VALUE 00 10.
*
01 WS-PROCESS-STS-AREA.
03 WS-FILE-ERROR-FLAG PIC X(01) VALUE SPACE.
88 WS-FILE-NORMAL VALUE ' '.
88 WS-FILE-ERROR VALUE 'E'.
03 WS-DB2-ERROR-FLAG PIC X(01) VALUE SPACE.
88 WS-DB2-NORMAL VALUE ' '.
88 WS-DB2-ERROR VALUE 'E'.
03 WS-DB2-EOF-FLAG .
05 WS-DBTABL01-EOF-FLAG
PIC X(01) VALUE SPACE .
88 WS-DBTABL01-EOF VALUE 'Y'.
88 WS-DBTABL01-NOTEOF VALUE 'N'.
05 WS-DBTABL02-EOF-FLAG
PIC X(01) VALUE SPACE .
88 WS-DBTABL02-EOF VALUE 'Y'.
88 WS-DBTABL02-NOTEOF VALUE 'N'.
05 WS-DBTABL03-EOF-FLAG
PIC X(01) VALUE SPACE .
88 WS-DBTABL03-EOF VALUE 'Y'.
88 WS-DBTABL03-NOTEOF VALUE 'N'.
*
*-----------------------------------------------------------------
* WORKING VARIABLIES *
*-----------------------------------------------------------------
*
01 WS-WORKING-VAR.
03 WS-FILNAM1-READ-CNT PIC 9(07) VALUE ZERO.
03 WS-FILNAM2-READ-CNT PIC 9(07) VALUE ZERO.
03 WS-FNAME1-SUCC-CNT PIC 9(07) VALUE ZERO.
03 WS-NAMEFF-SUCC-CNT PIC 9(07) VALUE ZERO.
03 WS-FAIL-CNT PIC 9(07) VALUE ZERO.
*
***************************
* DISPLAY MESSAGES *
***************************
*
01 WS-MESSAGE-AREA.
03 WS-PGM-HEAD.
05 FILLER PIC X(03) VALUE '** '.
05 WS-PGM-ID PIC X(08) VALUE SPACE.
05 FILLER PIC X(03) VALUE ' - '.
03 WS-SUB-PGM-MSG.
05 WS-PGM-ACTION PIC X(05).
88 WS-PGM-CALL VALUE 'CALL '.
05 WS-SUB-PGM-NAME PIC X(09).
05 FILLER PIC X(12) VALUE 'ERR, CODE = '.
05 WS-PGM-RTN-CODE PIC X(04) VALUE SPACE.
05 FILLER PIC X(09) VALUE ', COMM = '.
05 WS-PGM-COMMAREA PIC X(150).
03 WS-PGM-MSG.
05 FILLER PIC X(80).
88 WS-PGM-START VALUE 'START'.
88 WS-NORMAL-END VALUE 'NORMAL END'.
88 WS-ABNORMAL-END VALUE 'ABNORMAL END'.
03 WS-STATISTICS.
05 WS-FILNAM1-TOTAL-ST.
07 FILLER PIC X(25)
VALUE 'NO. OF FILNAM1 READ :'.
07 WS-FILNAM1-TOTAL-READ
PIC ZZZZZZZZZZZZ9.
05 WS-FILNAM2-TOTAL-ST.
07 FILLER PIC X(25)
VALUE 'NO. OF FILNAM2 READ :'.
07 WS-FILNAM2-TOTAL-READ
PIC ZZZZZZZZZZZZ9.
05 WS-FNAME1-SUCCESS-ST.
07 FILLER PIC X(25)
VALUE 'NO. OF FNAME1 WRITE :'.
07 WS-FNAME1-SUCC-WRITE
PIC ZZZZZZZZZZZZ9.
05 WS-NAMEFF-SUCCESS-ST.
07 FILLER PIC X(25)
VALUE 'NO. OF NAMEFF WRITE :'.
07 WS-NAMEFF-SUCC-WRITE
PIC ZZZZZZZZZZZZ9.
*
*****************************************************************
* COMMUNICATION AREA *
*****************************************************************
*
*****************************************************************
* UTCBERR : COMM AREA FOR PUBLIC ERROR PROCESS(UTSPBERR) *
* UTCFSTS : FILE STATUS VALUE DESCRIPTION *
* UTCSTUS : COMMAREA FOR SUB PGM UTSBSTUS *
*****************************************************************
COPY UTCSTUS.
* COPY UTCBERR.
COPY UTCFSTS.
COPY UTDB2ER IN LIBRYMVS.
* COPY DBDB2TST IN LIBRYMVS.
*
*-----------------------------------------------------------------
* DB2 HOST VARIABLES *
*-----------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -