15?

A constant would be better than {&B}. Or a better name such as &Len15 with a value initialized to 15 and never changed.

Tom

%SST(&XXXXXX &A &B) &XXXXXX is the string
&A is the starting position in the string
&B is the number of characters to extract (40) not the ending position!
Phil

0008.00 PGM
0009.00 DCL VAR(&ERROR) TYPE(*CHAR) LEN(1) VALUE(’ ‘)
0010.00 DCL VAR(&ITEMS) TYPE(*CHAR) LEN(600) VALUE(’ ‘)
0011.00 DCL VAR(&XXXXXX) TYPE(*CHAR) LEN(1200) VALUE(’ ‘)
0012.00 DCL VAR(&ITEMX) TYPE(*CHAR) LEN(15) VALUE(’ ‘)
0013.00 DCL VAR(&CNTR) TYPE(*DEC) LEN(2 0) VALUE(01)
0014.00 DCL VAR(&A) TYPE(*DEC) LEN(4 0) VALUE(0001)
0015.00 DCL VAR(&B) TYPE(*DEC) LEN(4 0) VALUE(0001)
0016.00
0017.00 CALL PGM(FLTDPRR) PARM(&ERROR &ITEMS)
0018.00
0019.00 IF (&ERROR = ‘1′) THEN(DO)
0020.00 CHGVAR VAR(&XXXXXX) VALUE(&ITEMS)
0021.00 RUNQRY QRY(DBLPRS1CI)
0022.00
0023.00 LOOP: CHGVAR VAR(&A) VALUE((&CNTR * 15) – 14)
0024.00 CHGVAR VAR(&B) VALUE(&CNTR * 15)
0025.00
0026.00 If COND(%sst(&XXXXXX &a &b) *NE ‘ ‘) THEN(DO)
0027.00 CHGVAR VAR(&ITEMX) VALUE(%SST(&XXXXXX &A &B))
0028.00
0029.00 CALL PGMA PARM(&ITEMX)
0030.00
0031.00 ENDDO
0032.00
0033.00 CHGVAR VAR(&CNTR) VALUE(&CNTR + 1)
0034.00
0035.00 IF COND(&CNTR *GT 40) THEN(GOTO CMDLBL(ENDPGM))
0036.00 GOTO CMDLBL(LOOP)
0037.00 ENDDO
0038.00
0039.00 ENDPGM: ENDPGM

in above CLLE program, XXXXXX is used because I get:
CPF0804 – “Built-in function operands not valid. Reason code 4.”
I originally had EMAILS.
This field is 15 characters times 40

in above CLLE program, XXXXXX is used because I get:
CPF0804 – “Built-in function operands not valid. Reason code 4.”
I originally had EMAILS.
This field is 15 characters times 40