&*****"$!#*)#!#
!8"*&: !3;2 !"" <=
8"1>
EXT EXEC
.
.
JSB EXEC
DEF *+5
DEF ICODE
DEF ICNWD
DEF IBUFR
DEF IBUFL
< >
.>
CALL EXEC(ICODE,ICNWD,IBUFR,IBUFL)
(
'$1! K ,
3 K / *
> K *
'#1K '
7 4L; K 2+
7 A K ) G &
4 K %"' F
3 K F
7 34 K )
3 K *
4 K *
2+
* !$) B
*
!$) B
%)
% & D4E
7+,/ K % F
7+,2 K F
% %"' D>
EG %
4
* $
% &
& 7 / B
% & & %"'
* )
/F
> 7
$ /( % K " D ) ><E
7 K ) 2 )
+
7+,2 7+,2