I******************************************************
I* D E F I N E D A T A - S T R U C T U R E *
I******************************************************
IDSFLLB DS
I 1 10 DSFIL
I 11 20 DSLIB
I DS
I B 9 120LENRCV
I*
IMBD100 DS
I 85 134 MBRTXT
I*
IPBERR DS
I I 116 B 1 40BYTPRV
I I 0 B 5 80BYTAVA
I 9 15 ERRID
I 16 16 ERR###
I 17 116 ERRDTA
C******************************************************
C* DEFINITION MODULE ( PLIST FIELD KLIST ) *
C******************************************************
C *ENTRY PLIST :
C PARM PIFIL 10 :
C PARM PILIB 10 :
C PARM PIMBR 10 :
C******************************************************
C* M A I N - R O U T I N E
C******************************************************
C MOVE PIFIL DSFIL :
C MOVE PILIB DSLIB :
C*
C CALL 'QUSRMBRD' :
C PARM MBD100 :
C PARM 134 LENRCV :
C PARM 'MBRD0100'FORMAT 8 :
C PARM DSFLLB :
C PARM PIMBR :
C PARM *OFF OVRRID 1 :
C PARM PBERR :
C* :
C MOVEL'*NONE' MSG
B001 C BYTAVA IFNE 0 :
001 C エラー :
E001 C ELSE :
001 C ここで利用可能。 :
C END
C* ;
C MOVE *ON *INLR ;
C RETRN ; |