Re: valid 5250 character set

I keep this REXX script handy


*************** Beginning of data ********
/* Write a character chart to STDOUT */
line = ' '
line2 = ' '
do col = x2d(0) to x2d(F) by x2d(1)
line = line '-'d2x(col)
line2 = line2'---'
end
say line
say line2
do row = x2d(40) to x2d(f0) by x2d(10)
line = d2x(row/x2d(10))'-:'
do col = 0 to x2d(F)
line = line d2c(row+col)' '
end
say line
end
/* End */
****************** End of data ***********

Mark Villa wrote on 5/31/2022 11:32 AM:

Hi,
Can anyone tell me how/where to reference the valid 5250 character set
from, when verifying the data will display? (device=3179 Model 2 - code
page=37) It seems like we would have an API to check data from another
source, to scrub it, before trying to show it on a screen. Trying to avoid
"Invalid Data" on the 5250 display.