CL Basics

[Pikachu]

So könnte es gehen.

DCL        VAR(&LIB)     TYPE(*CHAR) LEN(10)
DCL        VAR(&DBFILE)  TYPE(*CHAR) LEN(10)
DCL        VAR(&PFAD)    TYPE(*CHAR) LEN(1024)
DCL        VAR(&STMF1)   TYPE(*CHAR) LEN(1024)
DCL        VAR(&STMF2)   TYPE(*CHAR) LEN(1024)
DCL        VAR(&TOCCSID) TYPE(*DEC)  LEN(5)

CHGVAR     VAR(&PFAD)    VALUE('/home/')
CHGVAR     VAR(&LIB)     VALUE(QWERTZ)
CHGVAR     VAR(&DBFILE)  VALUE(DATEI)
CHGVAR     VAR(&TOCCSID) VALUE(1208)

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)