zOs/JCL/KDSEL

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG                                                       00040000
//S1       EXEC PGM=IKJEFT01,DYNAMNBR=200                               00020001
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTERM  DD DUMMY
//SYSPUNCH DD  SYSOUT=*
//SYSREC00 DD  DISP=(NEW,CATLG),DSN=A540769.TMP.DP2G.UNL,
//             DATACLAS=ENN35,DSNTYPE=LARGE,
//             SPACE=(CYL,(1000,5000)),MGMTCLAS=COM#A069
//SYSTSIN  DD *
    DSN SYSTEM(DP2G)
   RUN PROGRAM(DSNTIAUL) PARMS('SQL')
//SYSIN      DD *
 SELECT ID
     , RULESET_ID
     , LENGTH(ARCHIVE)
     , SUBSTR(ARCHIVE, 1, 200)
    FROM OA1$$$.TKD305A1
    ORDER BY ID, RULESET_ID
    ;