000010**************************************************************************
000020* Tvp NULL}֐(DELSPC4)
000030*
000040* (C)NEC Corporation/NEC Soft, Ltd. 1995,2008
000050*
000060*       2000.4.20 Created by NEC Soft, Ltd.
000070*
000080*  {\[X́uEXPRESS5800 COBOL85(WindowsNT(TM))vgp
000090*    쐬Ă܂
000100**************************************************************************
000110 IDENTIFICATION DIVISION.
000120 PROGRAM-ID.    DELSPC4.
000130 AUTHOR.        NEC Soft, Ltd.
000140 INSTALLATION.  NEC Soft, Ltd.
000150 DATE-WRITTEN.  00-04-20.
000160 DATE-COMPILED.
000170*
000180 ENVIRONMENT DIVISION.
000190 CONFIGURATION SECTION.
000200 SOURCE-COMPUTER.  EXPRESS5800.
000210 OBJECT-COMPUTER.  EXPRESS5800.
000220*
000230 DATA DIVISION.
000240 WORKING-STORAGE SECTION.
000250 01  WK-BUFFER.
000260     02  WK-CHAR     PIC  X(01)  OCCURS  1024.
000270 77  CHAR-COUNT      PIC  9(04).
000280*
000290 LINKAGE SECTION.
000300 77  PM-BUFFER       PIC  X(1024).
000310 77  PM-BUFSIZE      PIC  9(04).
000320*
000330 PROCEDURE DIVISION  USING  PM-BUFFER  PM-BUFSIZE.
000340 START-PROC.
000350     MOVE  PM-BUFFER   TO  WK-BUFFER.
000360     MOVE  PM-BUFSIZE  TO  CHAR-COUNT.
000370*
000380 INSERT-NULL.
000390*    ̍Ōォ󔒂ANULLɒu
000400*    ͋󔒈ȊOɂȂI
000410     PERFORM  TEST  BEFORE  UNTIL  WK-CHAR(CHAR-COUNT) NOT = " "
000420         MOVE  LOW-VALUE  TO  WK-CHAR(CHAR-COUNT)
000430         COMPUTE  CHAR-COUNT  =  CHAR-COUNT  -  1
000440         IF  CHAR-COUNT = 0
000450             THEN  GO TO  END-PROC
000460         END-IF
000470     END-PERFORM.
000480*
000490 END-PROC.
000500     MOVE  WK-BUFFER  TO  PM-BUFFER.
000510     EXIT PROGRAM.
000520