CL Basics

[sjuerges]

Ich hab mal folgendes fabriziert:

DCL        VAR(&PFAD)    TYPE(*CHAR) LEN(1024) VALUE('/home/')
DCL        VAR(&TOCCSID) TYPE(*DEC)  LEN(5)    VALUE(1208)

DCL        VAR(&LIB1)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE1)  TYPE(*CHAR) LEN(10) VALUE(ARSTAP)

DCL        VAR(&LIB2)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE2)  TYPE(*CHAR) LEN(10) VALUE(ARSTKP)

DCL        VAR(&LIB3)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE3)  TYPE(*CHAR) LEN(10) VALUE(FBSPOP)

DCL        VAR(&LIB4)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE4)  TYPE(*CHAR) LEN(10) VALUE(KDSTAP)

DCL        VAR(&LIB5)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE5)  TYPE(*CHAR) LEN(10) VALUE(KGSTAP)

DCL        VAR(&LIB6)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE6)  TYPE(*CHAR) LEN(10) VALUE(KOSTAP)

DCL        VAR(&LIB7)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE7)  TYPE(*CHAR) LEN(10) VALUE(KUKONP)

DCL        VAR(&LIB8)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE8)  TYPE(*CHAR) LEN(10) VALUE(LISTAP)

DCL        VAR(&LIB9)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE9)  TYPE(*CHAR) LEN(10) VALUE(PRSTAP)

DCL        VAR(&LIB10)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE10)  TYPE(*CHAR) LEN(10) VALUE(RASTAP)

DCL        VAR(&LIB11)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE11)  TYPE(*CHAR) LEN(10) VALUE(SOSTAP)

DCL        VAR(&LIB12)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE12)  TYPE(*CHAR) LEN(10) VALUE(TRSTAP)

DCL        VAR(&LIB13)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE13)  TYPE(*CHAR) LEN(10) VALUE(TSSTAP)

DCL        VAR(&LIB14)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE14)  TYPE(*CHAR) LEN(10) VALUE(TTPOSP)

DCL        VAR(&LIB15)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE15)  TYPE(*CHAR) LEN(10) VALUE(TTSTAP)

DCL        VAR(&LIB16)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE16)  TYPE(*CHAR) LEN(10) VALUE(VPSTAP)

DCL        VAR(&LIB17)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE17)  TYPE(*CHAR) LEN(10) VALUE(VSSTAP)

DCL        VAR(&LIB18)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE18)  TYPE(*CHAR) LEN(10) VALUE(VSSTPP)

DCL        VAR(&LIB19)     TYPE(*CHAR) LEN(10) VALUE(DBLDTA)
DCL        VAR(&DBFILE19)  TYPE(*CHAR) LEN(10) VALUE(VTSTAP)

DCL        VAR(&LIB20)     TYPE(*CHAR) LEN(10) VALUE(DBLDKD)
DCL        VAR(&DBFILE20)  TYPE(*CHAR) LEN(10) VALUE(XDINFPU)

DCL        VAR(&LIB)     TYPE(*CHAR) LEN(10)
DCL        VAR(&DBFILE)  TYPE(*CHAR) LEN(10)
DCL        VAR(&STMF1)   TYPE(*CHAR) LEN(1024)
DCL        VAR(&STMF2)   TYPE(*CHAR) LEN(1024)
DCL        VAR(&LOOP)    TYPE(*INT)  LEN(2) VALUE(0)

DOFOR      VAR(&LOOP)  FROM(1)  TO(20)

  CHGVAR     VAR(&LIB)     VALUE(&LIB *TCAT &LOOP)
  CHGVAR     VAR(&DBFILE)  VALUE(&DBFILE *TCAT &LOOP)
  
  CHGVAR     VAR(&STMF1)   VALUE(&PFAD *TCAT &DBFILE *TCAT '.as400.csv')
  CHGVAR     VAR(&STMF2)   VALUE(&PFAD *TCAT &DBFILE *TCAT '.pc.csv')
  
  CPYTOIMPF  FROMFILE(&LIB/&DBFILE) TOSTMF(&STMF1) +
             MBROPT(*REPLACE) STMFCODPAG(*STMF) +
             RCDDLM(*CRLF) FLDDLM(';')

  CPY        OBJ(&STMF1) TOOBJ(&STMF2) FROMCCSID(37) +
             TOCCSID(&TOCCSID) DTAFMT(*TEXT)

  CHGAUT     OBJ(&STMF1) USER(*PUBLIC) DTAAUT(*RWX) OBJAUT(*ALL)
  CHGAUT     OBJ(&STMF2) USER(*PUBLIC) DTAAUT(*RWX) OBJAUT(*ALL) 

ENDDO 

Will leider nicht so ganz kompilieren:

    7200-   CHGVAR     VAR(&LIB)     VALUE(&LIB *TCAT &LOOP)   
 * CPD0712 30  Art von Operand  für Operator ungültig.         
 * CPD0711 30  Art der Ausdrucksoperanden unterschiedlich.     
    7300-   CHGVAR     VAR(&DBFILE)  VALUE(&DBFILE *TCAT &LOOP)
 * CPD0712 30  Art von Operand  für Operator ungültig.         
 * CPD0711 30  Art der Ausdrucksoperanden unterschiedlich.