Da das hochladen bei mir nicht funktioniert hier das Programm:

Code:
000100070919       PROCESS APOST
000101070919       IDENTIFICATION DIVISION.
000102070919       PROGRAM-ID. TESTSQL1.
000131070919       ENVIRONMENT DIVISION.
000132070919       CONFIGURATION SECTION.
000133070919       SOURCE-COMPUTER. IBM-AS400.
000134070919       OBJECT-COMPUTER. IBM-AS400.
000135070919       SPECIAL-NAMES.        REQUESTOR  IS WORK-STATION
000136070919                             I-O-FEEDBACK IS SYSTEM-FEEDBACK.
000137070919       INPUT-OUTPUT SECTION.
000138070919         FILE-CONTROL.
000151070919       DATA DIVISION.
000152070919       FILE SECTION.
000160070919       WORKING-STORAGE SECTION.
000167070919      ****************************************************************
000168070919      * SYSTEM-FEEDBACK FÜR I-O-OPERATIONEN
000169070919      ****************************************************************
000170070919      *
000171070919       01      IO-INFORMATIONEN.
000172070919        02     GEN-I-O-AREA   PIC X(144).
000173070919        02     IO-FEEDBACK    PIC X(100).
000174070919        02     WS-FEEDBACK    REDEFINES IO-FEEDBACK.
000175070919         03    AKTUELLE-ZEILE PIC S9(4) COMP-4.
000176070919         03    AKTUELLE-SEITE PIC S9(9) COMP-4.
000177070919      * AKTUELLE SUBFILE-SATZ-NUMMER
000178070919         03    SFL-REL-NBR    PIC S9(4) COMP-4.
000179070919      * SUBFILE-SATZ-NUMMER DES OBERSTEN SATZES IN AKTUELLER ANZEIGE
000180070919         03    SFL-TOP-NBR    PIC S9(4) COMP-4.
000181070919      * AKTUELLE ANZAHL SÄTZE IN AKTUELLER SUBFILE
000182070919         03    SFL-NBR-RCD    PIC S9(4) COMP-4.
000183070919        02     DB-FEEDBACK    REDEFINES IO-FEEDBACK.
000184070919         03    FILLER         PIC X(030).
000185070919      * RELATIVE SATZNUMMER DES ZULETZT GELESENEN DATENBANKSATZES
000186070919         03    DB-RRN         PIC 9(09) COMP-4.
000188070919      ****************************************************************
000189070919      * DB2-Systeminformationen
000190070919      ****************************************************************
000191070919      *
000192070919           EXEC SQL INCLUDE SQLCA END-EXEC.
000195070919
000196070919      *************************************************************     ***
000197070919      * DB2-Cursor
000198070919      ****************************************************************
000199070919      *
000200070919
000201070919           EXEC SQL
000202070919              DECLARE C010AD CURSOR FOR
000203070919              SELECT
000204070919                    B010NAME,
000205070919                    B010KANST,
000206070919                    B010NATION
000207070919              FROM  BBBLIB/BBB010AD
000208070919              WHERE
000209070919                    B010RZBK = "0125"
000210070919              AND   B010KUNR < "0000010000"
000211070919           END-EXEC.
000212070919
000213070919
000214070919
000215070919      ****************************************************************
000216070919      * DB2-Host-Variablen
000217070919      ****************************************************************
000218070919      *
000219070919           EXEC SQL BEGIN DECLARE SECTION END-EXEC.
000220070919
000221070919       01 HOST-VARS.
000222070919
000223070919       05 BBB010AD-HOST.
000224070919       10 B010NAME              PIC X(32).
000225070919       10 B010KANST             PIC 9(01).
000226070919       10 B010NATION            PIC S9(5) COMP-3.
000234070919
000235070919           EXEC SQL END DECLARE SECTION END-EXEC.
000236070919
000237070919
000277070919      /****************************************************************
000278070919      *
000279070919      *   Linkage Section
000280070919      *
000281070919      *****************************************************************
000282070919
000283070919       LINKAGE SECTION.
000284070919
000285070919      *
000286070919      /****************************************************************
000287070919      *
000288070919      *   Programm - Steuerroutine
000289070919      *
000290070919      *****************************************************************
000291070919
000292070919       PROCEDURE DIVISION.
000293070919
000294070919
000295070919       STEUERUNG SECTION.
000296070919
000297070919       STEUERUNG-01.
000298070919
000299070919           EXEC SQL
000300070919             WHENEVER SQLERROR GOTO SQL-FEHLER
000301070919           END-EXEC.
000302070919
000303070919           PERFORM PGM-START
000304070919
000305070919           PERFORM PGM-LOGIK
000306070919
000307070919           PERFORM PGM-ENDE.
000308070919
000309070919       STEUERUNG-99.
000310070919
000311070919           EXIT.
000312070919
000313070919
000314070919      *
000315070919      *****************************************************************
000316070919      *
000317070919      *   Programmstart
000318070919      *
000319070919      *****************************************************************
000320070919
000321070919       PGM-START SECTION.
000322070919
000323070919       PGM-START-01.
000324070919
000336070919           CONTINUE
000337070919
000338070919       PGM-START-99.
000339070919
000340070919           EXIT.
000341070919
000342070919      *
000343070919      *****************************************************************
000344070919      *
000345070919      *   Programmlogik
000346070919      *
000347070919      *****************************************************************
000348070919
000349070919       PGM-LOGIK SECTION.
000350070919
000351070919       PGM-LOGIK-01.
000352070919
000353070919           EXEC SQL
000354070919             OPEN C010AD
000355070919           END-EXEC.
000356070919
000357070919           MOVE ZERO TO SQLCODE
000359070919
000360070919           PERFORM UNTIL SQLCODE = 100
000361070919
000362070919               EXEC SQL
000363070919                  FETCH C010AD
000364070919                  INTO
000365070919                       :B010NAME,
000366070919                       :B010KANST,
000367070919                       :B010NATION
000386070919               END-EXEC
000387070919               DISPLAY "BBB010AD: " BBB010AD-HOST
000388070919           END-PERFORM
000389070919
000390070919           EXEC SQL
000391070919               CLOSE C010AD
000392070919           END-EXEC.
000393070919
000394070919       PGM-LOGIK-99.
000395070919
000396070919           EXIT.
000397070919
000398070919      *
000399070919      *****************************************************************
000400070919      *
000401070919      *   Programmende
000402070919      *
000403070919      *****************************************************************
000404070919
000405070919       PGM-ENDE SECTION.
000406070919
000407070919       PGM-ENDE-01.
000408070919
000413070919             GOBACK.
000414070919
000415070919       PGM-ENDE-99.
000416070919
000417070919           EXIT.
000418070919
000419070919      *
000420070919      *****************************************************************
000421070919      *
000422070919      *   Fehlerhandling bei SQL-Fehlern
000423070919      *
000424070919      *****************************************************************
000425070919
000426070919       SQL-FEHLER SECTION.
000427070919
000428070919       SQL-FEHLER-01.
000429070919
000430070919           DISPLAY "SQL-FEHLER IN TSTSQL1: " SQLCA.
000431070919
000432070919       SQL-FEHLER-99.
000433070919
000434070919           EXIT.
000435070919