Cobol kann ich leider nicht.

Ich habe den Vorschlag von Birgitta umgesetzt:

Code:
             PGM                                                                                    
/*         SQL-Statement für View löschen                                                         */
             CLRPFM     FILE(OWAPF558)                                                              
/*         View löschen                                                                           */
             DLTF       FILE(CCMPDTAP/OWALF558)                                                     
             MONMSG     MSGID(CPF2105)                                                              
/*         SQL-Statement für View schreiben                                                       */
             CALL       PGM(OWAPG558)                                                               
/*         View erstellen                                                                         */
             OVRPRTF    FILE(QSYSPRT) OUTQ(LOESCH) SPLFOWN(*JOBGRPPRF)                              
             RUNSQLSTM  SRCFILE(OWAPF558) SRCMBR(OWAPF558) +                                        
                          COMMIT(*NONE)                                                             
             ENDPGM
Mit RPG lese ich den Merkmalsstamm und baue folgende SQL-Source zusammen:

Code:
CREATE VIEW CCMPDTAP/OWALF558 AS SELECT                            
SUBSTR(OJKYHJ, 18, 8) AS ARTNR,                                    
MAX(CASE WHEN FCKYHJ = 'LAENGE' THEN FSN1HJ ELSE 0  END) AS LAENGE,
MAX(CASE WHEN FCKYHJ = 'BREITE' THEN FSN1HJ ELSE 0  END) AS BREITE,
MAX(CASE WHEN FCKYHJ = 'DICKE ' THEN FSN1HJ ELSE 0  END) AS DICKE ,
MAX(CASE WHEN FCKYHJ = 'BAUSTO' THEN FSA1HJ ELSE '' END) AS BAUSTO,
...
MAX(CASE WHEN FCKYHJ = 'NADELA' THEN FSA1HJ ELSE '' END) AS NADELA
FROM CASPDTAP/CATPF0HJ
GROUP BY OJKYHJ;
Das funktioniert so wie es soll!
Danke