Generate all the characters in your CCSID except x'00'

I have never tinkered with spooled files to stream files, but here's a quick program that should generate all the characters in your CCSID except x'00':

h/copy qrpglesrc,stdhspec
h bnddir('QC2LE')
 * dbgview(*list)

fQSysPrt   O    F  132        Printer OflInd(*InOF)

d prtHex          s              2

d                 ds
d  dsNum                  1      2i 0
d  dsChar                 2      2

d H2C             pr                  extProc('cvthc')
d                                 *   value
d                                 *   value
d                               10I 0 value

c                   for       dsNum = 1 to 255

c                   callp     H2C(%addr(prtHex):
c                                 %addr(dsChar):
c                                 2)
c                   except    DoPrint
c                   endfor

c                   eval      *InLR=*On

oQSysPrt   E            DoPrint        1
o                       prtHex
o                       dsChar           +   2

Buck Calabro

[report a broken link by clicking here]