000010**************************************************************************
000020* Tvp A֐(STRCAT)
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.    STRCAT.
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-BUFFER1.
000260     02  WK-CHAR1     PIC  X(01)  OCCURS  1024.
000270 01  WK-BUFFER2.
000280     02  WK-CHAR2     PIC  X(01)  OCCURS  1024.
000290 77  WK-CHAR-COUNT    PIC  9(04).
000300 77  WK-CHAR-COUNT1   PIC  9(04).
000310*
000320 LINKAGE SECTION.
000330 77  PM-STR1         PIC  X(1024).
000340 77  PM-STR2         PIC  X(1024).
000350 77  PM-BUFSIZE1     PIC  9(04).
000360 77  PM-BUFSIZE2     PIC  9(04).
000370*
000380 PROCEDURE DIVISION  USING  PM-STR1  PM-STR2  PM-BUFSIZE1  PM-BUFSIZE2.
000390 START-PROC.
000400     MOVE  PM-STR1  TO  WK-BUFFER1.
000410     MOVE  PM-STR2  TO  WK-BUFFER2.
000420     COMPUTE  WK-CHAR-COUNT1  =  PM-BUFSIZE1 + 1.
000430     COMPUTE  WK-CHAR-COUNT   =  1.
000440*
000450 STRCAT.
000460*    PM-STR1̍̕ŌNULLtƁAPM-STR2t
000470     MOVE  LOW-VALUE  TO  WK-CHAR1(WK-CHAR-COUNT1).
000580     COMPUTE  WK-CHAR-COUNT1  =  WK-CHAR-COUNT1  +  1.
000590     PERFORM  TEST  BEFORE  UNTIL  WK-CHAR-COUNT  >  PM-BUFSIZE2
000600         MOVE  WK-CHAR2(WK-CHAR-COUNT)  TO  WK-CHAR1(WK-CHAR-COUNT1)
000610         COMPUTE  WK-CHAR-COUNT1  =  WK-CHAR-COUNT1  +  1
000620         COMPUTE  WK-CHAR-COUNT   =  WK-CHAR-COUNT   +  1
000630     END-PERFORM.
000640*
000650 END-PROC.
000660     MOVE  WK-BUFFER1  TO  PM-STR1.
000670     EXIT PROGRAM.
