DS
I I X'0E' 1 1 @0E
I 2 9 @NMG
I 2 3 @CHK
I I X'0F' 10 10 @0F
*====================================================================*
* PARM LIST *
*====================================================================*
C *ENTRY PLIST
C PARM #PJIKA 10
*--------------------------------------------------------------------*
C MOVEL#PJIKA @@NMG
C @CHK IFEQ X'427C' ＠ ﾁｪｯｸ
C ' ＠ ' DSPLY
C ENDIF
*--------------------------------------------------------------------*
C SETON LR
C RETRN
阅读(1512) | 评论(0) | 转发(1) |
