/* 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','5d'x )
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                  */