Comments on: CMPPFM, Space offset error. http://itknowledgeexchange.techtarget.com/itanswers/cmppfm-space-offset-error/ Sat, 18 May 2013 20:55:13 +0000 hourly 1 By: xtreme1 http://itknowledgeexchange.techtarget.com/itanswers/cmppfm-space-offset-error/#comment-60370 xtreme1 Thu, 26 Feb 2009 19:15:41 +0000 #comment-60370 Thank you for the response. My colleagues and I are discussing alternatives to avoid using the CMPPFM at all, since it’s obvious IBM hasn’t ironed out all the issues with using it.

]]> By: sudzie http://itknowledgeexchange.techtarget.com/itanswers/cmppfm-space-offset-error/#comment-60313 sudzie Wed, 25 Feb 2009 14:33:52 +0000 #comment-60313 If you’re like me, and only want to verify your testing without going to the trouble of writing more programs, you might find this CLP useful. It creates segments of the two files in QTEMP of a size that will be small enough, and keeps comparing the segments.

  5722WDS V5R4M0  060210                  SEU SOURCE LISTING                            02/25/09 09:21:52    GAMMA        PAGE    1
  SOURCE FILE . . . . . . .  STHOMPSO/SOURCE
  MEMBER  . . . . . . . . .  CMPRMANY
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
    100 /*                      Created ON: 052098                       */                                             05/21/98
    200 /*                      PROGRAMMER: STHOMPSO                     */                                             05/14/98
    300 /*                      Purpose:    Testing Utility              */                                             05/21/98
    400 /*                                                               */                                             09/21/95
    401 /* CMPPFM on files greater than maximum allowed (in V4R4 this    */                                             01/24/00
    500 /*  varies with record length: (16meg/rec.len. +11) - 100        */                                             01/24/00
    900 /*****************************************************************/                                             09/21/95
  10800                                                                                                                 05/07/86
  10900              PGM        PARM(&NEWFIL &NEWLIB &OLDFIL &OLDLIB)                                                   05/21/98
  11000                                                                                                                 11/09/93
  12400                                                                                                                 11/10/93
  12500 /*   DECLARE PROGRAM CONTROL VARIABLES           */                                                             11/10/93
  12600                                                                                                                 11/09/93
  12601              DCL        VAR(&MAXREC) TYPE(*DEC) LEN(10 0) VALUE(153719)                                         01/24/00
  12602              DCL        VAR(&NUMREC) TYPE(*DEC) LEN(10 0)                                                       05/21/98
  12603              DCL        VAR(&NUMLFT) TYPE(*DEC) LEN(10 0) VALUE(0)                                              05/21/98
  12604              DCL        VAR(&SEGMTS) TYPE(*DEC) LEN(6 0) VALUE(0)                                               05/21/98
  12605              DCL        VAR(&START) TYPE(*DEC) LEN(10 0) VALUE(0)                                               05/21/98
  12606              DCL        VAR(&END) TYPE(*DEC) LEN(10 0)   VALUE(0)                                               05/21/98
  12607              DCL        VAR(&NEWFIL) TYPE(*CHAR) LEN(10)                                                        05/21/98
  12608              DCL        VAR(&NEWLIB) TYPE(*CHAR) LEN(10)                                                        05/21/98
  12609              DCL        VAR(&OLDFIL) TYPE(*CHAR) LEN(10)                                                        05/21/98
  12610              DCL        VAR(&OLDLIB) TYPE(*CHAR) LEN(10)                                                        05/21/98
  12611                                                                                                                 05/21/98
  12612              RTVMBRD    FILE(&NEWLIB/&NEWFIL) NBRCURRCD(&NUMREC)                                                05/21/98
  12613              IF         COND(&NUMREC *LT &MAXREC) THEN(GOTO +                                                   01/24/00
  12614                           CMDLBL(ONLYONE))                                                                      05/21/98
  12615                                                                                                                 05/21/98
  12616              CPYF       FROMFILE(&NEWLIB/&NEWFIL) +                                                             05/21/98
  12617                           TOFILE(QTEMP/&NEWFIL) MBROPT(*ADD) +                                                  05/21/98
  12618                           CRTFILE(*YES) TORCD(&MAXREC)                                                          01/24/00
  30601              CPYF       FROMFILE(&OLDLIB/&OLDFIL) +                                                             05/21/98
  30602                           TOFILE(QTEMP/&OLDFIL) MBROPT(*ADD) +                                                  05/21/98
  30603                           CRTFILE(*YES) TORCD(&MAXREC)                                                          01/24/00
  30700              CMPPFM     NEWFILE(QTEMP/&NEWFIL) +                                                                05/21/98
  30800                           OLDFILE(QTEMP/&OLDFIL) RPTTYPE(*CHANGE) +                                             05/21/98
  30801                           OUTPUT(*PRINT)                                                                        05/21/98
  30900                                                                                                                 11/09/93
  30901              CHGVAR     VAR(&NUMLFT) VALUE(&NUMREC)                                                             06/12/98
  30902              CHGVAR     VAR(&SEGMTS) VALUE(&SEGMTS + 1)                                                         05/21/98
  30903                                                                                                                 05/21/98
  30904  LOOP:       CHGVAR     VAR(&NUMLFT) VALUE(&NUMLFT - &MAXREC) /* How +                                          01/24/00
  30905                           many are left? */                                                                     05/21/98
  30906                                                                                                                 05/21/98
  30907              IF         COND(&NUMLFT *GT &MAXREC) THEN(GOTO +                                                   01/24/00
  30908                           CMDLBL(MORE))                                                                         05/21/98
  30909                                                                                                                 05/21/98
  30910              ELSE       CMD(GOTO CMDLBL(LASTONE))                                                               05/21/98
  34900                                                                                                                 11/09/93
  34901  MORE:       CHGVAR     VAR(&START) VALUE((&SEGMTS * &MAXREC) + 1)                                              01/24/00
  35000              CHGVAR     VAR(&SEGMTS) VALUE(&SEGMTS + 1)                                                         05/21/98
  35103              CHGVAR     VAR(&END) VALUE(&SEGMTS * &MAXREC)                                                      01/24/00
  35104                                                                                                                 05/21/98
  5722WDS V5R4M0  060210                  SEU SOURCE LISTING                            02/25/09 09:21:52    GAMMA        PAGE    2
  SOURCE FILE . . . . . . .  STHOMPSO/SOURCE
  MEMBER  . . . . . . . . .  CMPRMANY
  SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0
  35105              CPYF       FROMFILE(&NEWLIB/&NEWFIL) +                                                             05/21/98
  35106                           TOFILE(QTEMP/&NEWFIL) MBROPT(*REPLACE) +                                              05/21/98
  35107                           FROMRCD(&START) TORCD(&END)                                                           05/21/98
  35109              CPYF       FROMFILE(&OLDLIB/&OLDFIL) +                                                             05/21/98
  35110                           TOFILE(QTEMP/&OLDFIL) MBROPT(*REPLACE) +                                              05/21/98
  35111                           FROMRCD(&START) TORCD(&END)                                                           05/21/98
  35112              CMPPFM     NEWFILE(QTEMP/&NEWFIL) +                                                                05/21/98
  35113                           OLDFILE(QTEMP/&OLDFIL) RPTTYPE(*CHANGE) +                                             05/21/98
  35114                           OUTPUT(*PRINT)                                                                        05/21/98
  35115                                                                                                                 05/21/98
  35116              GOTO       CMDLBL(LOOP) /* go around again */                                                      06/12/98
  35117                                                                                                                 06/12/98
  35118  LASTONE:    CHGVAR     VAR(&START) VALUE((&SEGMTS * &MAXREC) + 1)                                              01/24/00
  35119                                                                                                                 05/21/98
  35120              CPYF       FROMFILE(&NEWLIB/&NEWFIL) +                                                             05/21/98
  35121                           TOFILE(QTEMP/&NEWFIL) MBROPT(*REPLACE) +                                              05/21/98
  35122                           FROMRCD(&START) TORCD(*END)                                                           05/21/98
  35123              CPYF       FROMFILE(&OLDLIB/&OLDFIL) +                                                             05/21/98
  35124                           TOFILE(QTEMP/&OLDFIL) MBROPT(*REPLACE) +                                              05/21/98
  35125                           FROMRCD(&START) TORCD(*END)                                                           05/21/98
  35126  COMPLAST:   CMPPFM     NEWFILE(QTEMP/&NEWFIL) +                                                                05/21/98
  35127                           OLDFILE(QTEMP/&OLDFIL) RPTTYPE(*CHANGE) +                                             05/21/98
  35128                           OUTPUT(*PRINT)                                                                        05/21/98
  35129              GOTO       CMDLBL(ENDCLPPGM)                                                                       05/21/98
  35130                                                                                                                 05/21/98
  35131  ONLYONE:    CHGVAR     VAR(&START) VALUE((&SEGMTS * &MAXREC) + 1)                                              01/24/00
  35132                                                                                                                 05/21/98
  35133              CPYF       FROMFILE(&NEWLIB/&NEWFIL) +                                                             05/21/98
  35134                           TOFILE(QTEMP/&NEWFIL) MBROPT(*ADD) +                                                  05/21/98
  35135                           CRTFILE(*YES)                      +                                                  05/21/98
  35136                           FROMRCD(&START) TORCD(*END)                                                           05/21/98
  35137              CPYF       FROMFILE(&OLDLIB/&OLDFIL) +                                                             05/21/98
  35138                           TOFILE(QTEMP/&OLDFIL) MBROPT(*ADD) +                                                  05/21/98
  35139                           CRTFILE(*YES)                      +                                                  05/21/98
  35140                           FROMRCD(&START) TORCD(*END)                                                           05/21/98
  35141              GOTO       CMDLBL(COMPLAST)                                                                        05/21/98
  35142                                                                                                                 05/21/98
  35143                                                                                                                 05/21/98
  35200  ENDCLPPGM:                                                                                                     06/19/98
  35201              DLTF       FILE(QTEMP/&OLDFIL)                                                                     06/19/98
  35202              DLTF       FILE(QTEMP/&NEWFIL) /* get rid of them so +                                             06/19/98
  35203                           another step in the same job can re-use +                                             06/19/98
  35204                           the files -- otherwise records get added */                                           06/19/98
  35205              ENDPGM                                                                                             06/19/98
  35300                                                                                                                 05/21/98
                                  * * * *  E N D  O F  S O U R C E  * * * *
]]>