Better test script and api changes

This commit is contained in:
2026-06-11 08:30:02 +02:00
parent 41316a0686
commit a3f19462c3
5 changed files with 31 additions and 6 deletions
+6 -6
View File
@@ -1,14 +1,14 @@
version: "1.0" version: "1.0"
project: "legacy-finance-api" project: "legacy-student-api"
endpoints: endpoints:
- path: "/accounts/{id}" - path: "/students/{id}"
method: "GET" method: "GET"
cobol_source: "src/fetch_account.cbl" cobol_source: "src/fetch_student.cbl"
procedure: "GET-ACCOUNT-DATA" procedure: "FETCH-STUDENT"
arguments: arguments:
- name: "id" - name: "id"
target: "LK-ID" target: "LK-ID"
type: "PIC X(10)" type: "PIC 9(5)"
source: "path" source: "path"
response_copybook: "src/structures/account_res.cpy" response_copybook: "src/copybooks/student_res.cpy"
+5
View File
@@ -0,0 +1,5 @@
01 STUDENT.
05 ST-ID PIC 9(5).
05 FIRST-NAME PIC X(20).
05 LAST-NAME PIC X(20).
View File
+20
View File
@@ -0,0 +1,20 @@
IDENTIFICATION DIVISION.
PROGRAM-ID. FETCH-STUDENT.
AUTHOR. OBERZIER.
DATA DIVISION.
LINKAGE SECTION.
01 LK-ID PIC 9(5).
COPY "copybooks/student".
PROCEDURE DIVISION USING LK-ID STUDENT.
0001-FETCH-STUDENT.
IF LK-ID = 34401
MOVE 34401 TO ST-ID
MOVE "Lukas" TO FIRST-NAME
MOVE "King" TO LAST-NAME
ELSE
MOVE 0 TO ST-ID
MOVE "Not" TO FIRST-NAME
MOVE "Found" TO LAST-NAME
END-IF.
View File