feat: Initial COBOL sample application
- AUTH.CBL: Transaction authorization (with deliberate bug) - VALIDATE.CBL: Input validation module - CLEARING.CBL: Settlement batch processing - HOST.CBL: Host communication interface - Copybooks and JCLs included Bug for testing: AUTH.CBL uses PIC 9(9)V99 for balance instead of PIC 9(11)V99, causing truncation.
This commit is contained in:
Ricel Leite
parent
edefa6c450
commit
bfa168d12b
27
README.md
27
README.md
|
|
@ -1,3 +1,26 @@
|
|||
# cobol-sample-app
|
||||
# COBOL Sample Application
|
||||
|
||||
Sample COBOL application for JIRA AI Fixer testing
|
||||
Sample mainframe application for testing JIRA AI Fixer.
|
||||
|
||||
## Structure
|
||||
|
||||
```
|
||||
src/
|
||||
├── cobol/
|
||||
│ ├── AUTH.CBL - Transaction authorization
|
||||
│ ├── VALIDATE.CBL - Input validation
|
||||
│ ├── CLEARING.CBL - Settlement processing
|
||||
│ └── HOST.CBL - Host communication
|
||||
├── copybooks/
|
||||
│ └── TRANSREC.cpy - Transaction record layout
|
||||
└── jcl/
|
||||
├── AUTHPROC.jcl - Authorization job
|
||||
└── CLEARJOB.jcl - Clearing batch job
|
||||
```
|
||||
|
||||
## Known Issues
|
||||
|
||||
For testing purposes, AUTH.CBL contains a deliberate bug:
|
||||
- `WS-AVAILABLE-BALANCE` is defined as `PIC 9(9)V99`
|
||||
- Should be `PIC 9(11)V99` to match HOST response
|
||||
- Causes truncation on balances > $9,999,999.99
|
||||
|
|
|
|||
|
|
@ -0,0 +1,70 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. AUTH.
|
||||
*****************************************************************
|
||||
* PROGRAM: AUTH - Transaction Authorization
|
||||
* PURPOSE: Validate and authorize card transactions
|
||||
* AUTHOR: Sample Application
|
||||
*****************************************************************
|
||||
ENVIRONMENT DIVISION.
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
|
||||
01 WS-TRANSACTION-DATA.
|
||||
05 WS-CARD-NUMBER PIC X(16).
|
||||
05 WS-TRANSACTION-AMOUNT PIC 9(11)V99.
|
||||
05 WS-AVAILABLE-BALANCE PIC 9(9)V99.
|
||||
05 WS-RESPONSE-CODE PIC 9(2).
|
||||
05 WS-MERCHANT-ID PIC X(15).
|
||||
|
||||
01 WS-HOST-RESPONSE.
|
||||
05 WS-HOST-BALANCE PIC 9(11)V99.
|
||||
05 WS-HOST-STATUS PIC X(2).
|
||||
|
||||
01 WS-FLAGS.
|
||||
05 WS-VALID-CARD PIC X VALUE 'N'.
|
||||
05 WS-SUFFICIENT-FUNDS PIC X VALUE 'N'.
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
0000-MAIN-PROCESS.
|
||||
PERFORM 1000-INITIALIZE
|
||||
PERFORM 2000-VALIDATE-CARD
|
||||
IF WS-VALID-CARD = 'Y'
|
||||
PERFORM 3000-CHECK-BALANCE
|
||||
IF WS-SUFFICIENT-FUNDS = 'Y'
|
||||
PERFORM 4000-AUTHORIZE
|
||||
ELSE
|
||||
MOVE 51 TO WS-RESPONSE-CODE
|
||||
END-IF
|
||||
ELSE
|
||||
MOVE 14 TO WS-RESPONSE-CODE
|
||||
END-IF
|
||||
PERFORM 9000-FINALIZE
|
||||
STOP RUN.
|
||||
|
||||
1000-INITIALIZE.
|
||||
INITIALIZE WS-TRANSACTION-DATA
|
||||
INITIALIZE WS-HOST-RESPONSE
|
||||
MOVE 'N' TO WS-VALID-CARD
|
||||
MOVE 'N' TO WS-SUFFICIENT-FUNDS.
|
||||
|
||||
2000-VALIDATE-CARD.
|
||||
IF WS-CARD-NUMBER NOT = SPACES
|
||||
MOVE 'Y' TO WS-VALID-CARD
|
||||
END-IF.
|
||||
|
||||
3000-CHECK-BALANCE.
|
||||
* BUG: WS-AVAILABLE-BALANCE is PIC 9(9)V99 but HOST returns
|
||||
* PIC 9(11)V99, causing truncation on amounts > 9,999,999.99
|
||||
MOVE WS-HOST-BALANCE TO WS-AVAILABLE-BALANCE
|
||||
IF WS-AVAILABLE-BALANCE >= WS-TRANSACTION-AMOUNT
|
||||
MOVE 'Y' TO WS-SUFFICIENT-FUNDS
|
||||
ELSE
|
||||
MOVE 'N' TO WS-SUFFICIENT-FUNDS
|
||||
END-IF.
|
||||
|
||||
4000-AUTHORIZE.
|
||||
MOVE 00 TO WS-RESPONSE-CODE.
|
||||
|
||||
9000-FINALIZE.
|
||||
CONTINUE.
|
||||
|
|
@ -0,0 +1,75 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. CLEARING.
|
||||
*****************************************************************
|
||||
* PROGRAM: CLEARING - Settlement Processing
|
||||
* PURPOSE: Process daily transaction settlements
|
||||
*****************************************************************
|
||||
ENVIRONMENT DIVISION.
|
||||
INPUT-OUTPUT SECTION.
|
||||
FILE-CONTROL.
|
||||
SELECT TRANS-FILE ASSIGN TO 'TRANSIN'
|
||||
ORGANIZATION IS SEQUENTIAL
|
||||
FILE STATUS IS WS-FILE-STATUS.
|
||||
SELECT CLEAR-FILE ASSIGN TO 'CLEAROUT'
|
||||
ORGANIZATION IS SEQUENTIAL
|
||||
FILE STATUS IS WS-FILE-STATUS.
|
||||
|
||||
DATA DIVISION.
|
||||
FILE SECTION.
|
||||
|
||||
FD TRANS-FILE.
|
||||
01 TRANS-RECORD.
|
||||
05 TR-CARD-NUMBER PIC X(16).
|
||||
05 TR-AMOUNT PIC 9(11)V99.
|
||||
05 TR-DATE PIC 9(8).
|
||||
05 TR-STATUS PIC X(2).
|
||||
|
||||
FD CLEAR-FILE.
|
||||
01 CLEAR-RECORD.
|
||||
05 CR-CARD-NUMBER PIC X(16).
|
||||
05 CR-AMOUNT PIC 9(11)V99.
|
||||
05 CR-SETTLE-DATE PIC 9(8).
|
||||
05 CR-BATCH-ID PIC 9(6).
|
||||
|
||||
WORKING-STORAGE SECTION.
|
||||
|
||||
01 WS-FILE-STATUS PIC XX.
|
||||
01 WS-EOF-FLAG PIC X VALUE 'N'.
|
||||
01 WS-RECORD-COUNT PIC 9(8) VALUE 0.
|
||||
01 WS-BATCH-NUMBER PIC 9(6) VALUE 0.
|
||||
01 WS-CURRENT-DATE PIC 9(8).
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
0000-MAIN-CLEARING.
|
||||
PERFORM 1000-INITIALIZE
|
||||
PERFORM 2000-PROCESS-RECORDS
|
||||
UNTIL WS-EOF-FLAG = 'Y'
|
||||
PERFORM 9000-FINALIZE
|
||||
STOP RUN.
|
||||
|
||||
1000-INITIALIZE.
|
||||
OPEN INPUT TRANS-FILE
|
||||
OPEN OUTPUT CLEAR-FILE
|
||||
ACCEPT WS-CURRENT-DATE FROM DATE YYYYMMDD
|
||||
ADD 1 TO WS-BATCH-NUMBER.
|
||||
|
||||
2000-PROCESS-RECORDS.
|
||||
READ TRANS-FILE
|
||||
AT END MOVE 'Y' TO WS-EOF-FLAG
|
||||
NOT AT END PERFORM 3000-CREATE-CLEARING
|
||||
END-READ.
|
||||
|
||||
3000-CREATE-CLEARING.
|
||||
IF TR-STATUS = '00'
|
||||
MOVE TR-CARD-NUMBER TO CR-CARD-NUMBER
|
||||
MOVE TR-AMOUNT TO CR-AMOUNT
|
||||
MOVE WS-CURRENT-DATE TO CR-SETTLE-DATE
|
||||
MOVE WS-BATCH-NUMBER TO CR-BATCH-ID
|
||||
WRITE CLEAR-RECORD
|
||||
ADD 1 TO WS-RECORD-COUNT
|
||||
END-IF.
|
||||
|
||||
9000-FINALIZE.
|
||||
CLOSE TRANS-FILE
|
||||
CLOSE CLEAR-FILE.
|
||||
|
|
@ -0,0 +1,44 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. HOST.
|
||||
*****************************************************************
|
||||
* PROGRAM: HOST - Host Communication Module
|
||||
* PURPOSE: Interface with host system for balance inquiry
|
||||
*****************************************************************
|
||||
ENVIRONMENT DIVISION.
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
|
||||
01 WS-HOST-REQUEST.
|
||||
05 WS-REQ-FUNCTION PIC X(4).
|
||||
05 WS-REQ-CARD-NUMBER PIC X(16).
|
||||
05 WS-REQ-TIMESTAMP PIC 9(14).
|
||||
|
||||
01 WS-HOST-RESPONSE.
|
||||
05 WS-RSP-STATUS PIC X(2).
|
||||
05 WS-RSP-BALANCE PIC 9(11)V99.
|
||||
05 WS-RSP-CREDIT-LIMIT PIC 9(11)V99.
|
||||
05 WS-RSP-MESSAGE PIC X(50).
|
||||
|
||||
01 WS-RETURN-CODE PIC 9(4) VALUE 0.
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
0000-MAIN-HOST.
|
||||
PERFORM 1000-BUILD-REQUEST
|
||||
PERFORM 2000-SEND-REQUEST
|
||||
PERFORM 3000-RECEIVE-RESPONSE
|
||||
STOP RUN.
|
||||
|
||||
1000-BUILD-REQUEST.
|
||||
MOVE 'BALQ' TO WS-REQ-FUNCTION
|
||||
ACCEPT WS-REQ-TIMESTAMP FROM TIME.
|
||||
|
||||
2000-SEND-REQUEST.
|
||||
* Simulated host communication
|
||||
CONTINUE.
|
||||
|
||||
3000-RECEIVE-RESPONSE.
|
||||
* Simulated host response
|
||||
MOVE '00' TO WS-RSP-STATUS
|
||||
MOVE 150000000.00 TO WS-RSP-BALANCE
|
||||
MOVE 200000000.00 TO WS-RSP-CREDIT-LIMIT.
|
||||
|
|
@ -0,0 +1,45 @@
|
|||
IDENTIFICATION DIVISION.
|
||||
PROGRAM-ID. VALIDATE.
|
||||
*****************************************************************
|
||||
* PROGRAM: VALIDATE - Input Validation Module
|
||||
* PURPOSE: Validate transaction input data
|
||||
*****************************************************************
|
||||
ENVIRONMENT DIVISION.
|
||||
DATA DIVISION.
|
||||
WORKING-STORAGE SECTION.
|
||||
|
||||
01 WS-VALIDATION-FLAGS.
|
||||
05 WS-CARD-VALID PIC X VALUE 'N'.
|
||||
05 WS-AMOUNT-VALID PIC X VALUE 'N'.
|
||||
05 WS-MERCHANT-VALID PIC X VALUE 'N'.
|
||||
|
||||
01 WS-INPUT-DATA.
|
||||
05 WS-IN-CARD-NUMBER PIC X(16).
|
||||
05 WS-IN-AMOUNT PIC 9(11)V99.
|
||||
05 WS-IN-MERCHANT PIC X(15).
|
||||
|
||||
PROCEDURE DIVISION.
|
||||
|
||||
0000-MAIN-VALIDATE.
|
||||
PERFORM 1000-VALIDATE-CARD
|
||||
PERFORM 2000-VALIDATE-AMOUNT
|
||||
PERFORM 3000-VALIDATE-MERCHANT
|
||||
STOP RUN.
|
||||
|
||||
1000-VALIDATE-CARD.
|
||||
IF WS-IN-CARD-NUMBER NOT = SPACES
|
||||
IF FUNCTION LENGTH(
|
||||
FUNCTION TRIM(WS-IN-CARD-NUMBER)) = 16
|
||||
MOVE 'Y' TO WS-CARD-VALID
|
||||
END-IF
|
||||
END-IF.
|
||||
|
||||
2000-VALIDATE-AMOUNT.
|
||||
IF WS-IN-AMOUNT > 0
|
||||
MOVE 'Y' TO WS-AMOUNT-VALID
|
||||
END-IF.
|
||||
|
||||
3000-VALIDATE-MERCHANT.
|
||||
IF WS-IN-MERCHANT NOT = SPACES
|
||||
MOVE 'Y' TO WS-MERCHANT-VALID
|
||||
END-IF.
|
||||
|
|
@ -0,0 +1,19 @@
|
|||
*****************************************************************
|
||||
* COPYBOOK: TRANSREC - Transaction Record Layout
|
||||
*****************************************************************
|
||||
01 TRANSACTION-RECORD.
|
||||
05 TXN-HEADER.
|
||||
10 TXN-TYPE PIC X(4).
|
||||
10 TXN-VERSION PIC 9(2).
|
||||
05 TXN-CARD-DATA.
|
||||
10 TXN-CARD-NUMBER PIC X(16).
|
||||
10 TXN-CARD-EXPIRY PIC 9(4).
|
||||
05 TXN-AMOUNT-DATA.
|
||||
10 TXN-AMOUNT PIC 9(11)V99.
|
||||
10 TXN-CURRENCY PIC X(3).
|
||||
05 TXN-MERCHANT-DATA.
|
||||
10 TXN-MERCHANT-ID PIC X(15).
|
||||
10 TXN-MERCHANT-NAME PIC X(40).
|
||||
05 TXN-RESPONSE.
|
||||
10 TXN-RESP-CODE PIC 9(2).
|
||||
10 TXN-RESP-MESSAGE PIC X(50).
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
//AUTHPROC JOB (ACCT),'AUTH PROCESS',CLASS=A,MSGCLASS=X
|
||||
//*****************************************************************
|
||||
//* JCL: AUTHPROC - Transaction Authorization Process
|
||||
//*****************************************************************
|
||||
//STEP01 EXEC PGM=AUTH
|
||||
//STEPLIB DD DSN=PROD.LOADLIB,DISP=SHR
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//TRANSIN DD DSN=PROD.TRANS.INPUT,DISP=SHR
|
||||
//TRANSOUT DD DSN=PROD.TRANS.OUTPUT,DISP=(NEW,CATLG,DELETE),
|
||||
// SPACE=(CYL,(10,5),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=200,BLKSIZE=0)
|
||||
//*
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
//CLEARJOB JOB (ACCT),'CLEARING BATCH',CLASS=A,MSGCLASS=X
|
||||
//*****************************************************************
|
||||
//* JCL: CLEARJOB - Daily Clearing Batch Process
|
||||
//*****************************************************************
|
||||
//STEP01 EXEC PGM=CLEARING
|
||||
//STEPLIB DD DSN=PROD.LOADLIB,DISP=SHR
|
||||
//SYSOUT DD SYSOUT=*
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//TRANSIN DD DSN=PROD.DAILY.TRANS,DISP=SHR
|
||||
//CLEAROUT DD DSN=PROD.CLEARING.OUTPUT,DISP=(NEW,CATLG,DELETE),
|
||||
// SPACE=(CYL,(50,10),RLSE),
|
||||
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=0)
|
||||
//*
|
||||
Loading…
Reference in New Issue