/* REXX       HEXCHARS    Display the first 256 hex characters (00-FF).

*/ arg argline                         /* pro-forma quick-start      */
address TSO
arg parms "((" opts
opts = Strip(opts,"T",")")
parse var opts "TRACE"  tv  .
parse value tv "N"  with  tv .
rc = Trace("O"); rc = Trace(tv)

"NEWSTACK"
"ALLOC  FI( @TMP ) NEW DELETE  UNIT( VIO ) SPACE( 1 ) TRACKS",
                  "RECFM(V B) LRECL( 96 ) BLKSIZE(0)"
do data  = 0 to 255
  hex    = D2X(data)
  hex    = Right(hex,2,'0')
  char   = X2C(hex)
  output = Right(data,3) "X'"hex"' Value -->"char"<--"
  queue output
end
"EXECIO" queued() "DISKW @TMP (FINIS "
"DELSTACK"

address ISPEXEC
"LMINIT DATAID( colsid ) DDNAME( @TMP )"
"EDIT   DATAID( "colsid" )"
"LMFREE DATAID( "colsid" )"

address TSO
"FREE FI( @TMP )"

exit                                   /*@ HEXCHARS                  */