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
+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