Skip to main content

Hello. I am currently running my software on Windows 2019 server and I am experiencing a serious problem. The CALL SYSTEM instructions are not working, they are ignored on the new platform. Everything was working fine on Windows Server 2009 R2. Below are my instructions and I hope to receive your help in determining the problem.

02 COMP-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGCOMPA .\\WG\\WGCOMP".
     03 COMP-ANO-D PIC 9(4).
     03 COMP-MES-D PIC 9(2).

02 ALMC-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGALMC .\\WG\\WGALMC".
     03 ALMC-ANO-D PIC 9(4).
     03 ALMC-MES-D PIC 9(2).

02 MAES-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGMAEST .\\WG\\WGMAES".
     03 MAES-ANO-D PIC 9(4).
     03 MAES-MES-D PIC 9(2).

02 TRAN-D.
      03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGTRANS .\\WG\\WGTRAN".
      03 TRAN-ANO-D PIC 9(4).
      03 TRAN-MES-D PIC 9(2).

02 ESTA-D.
     03 FILLER PIC X(43) VALUE  "CMD.EXE /C COPY /Y .\\WG\\WGESTAD .\\WG\\WGESTA".
     03 ESTA-ANO-D PIC 9(4).
     03 ESTA-MES-D PIC 9(2).

02 TOTA-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGTOTAL .\\WG\\WGTOTA".
     03 TOTA-ANO-D PIC 9(4).
     03 TOTA-MES-D PIC 9(2).

HACER-BACKUP-MES-D.
MOVE I-MES-LINK TO COMP-MES-D
                                      ALMC-MES-D
                                      MAES-MES-D
                                     TRAN-MES-D
                                      ESTA-MES-D
                                     TOTA-MES-D.
MOVE I-ANO-LINK TO COMP-ANO-D
                                      ALMC-ANO-D
                                      MAES-ANO-D
                                      TRAN-ANO-D
                                      ESTA-ANO-D
                                     TOTA-ANO-D.

CALL "SYSTEM" USING COMP-D.
CALL "SYSTEM" USING ALMC-D.
CALL "SYSTEM" USING MAES-D.
CALL "SYSTEM" USING TRAN-D.
CALL "SYSTEM" USING ESTA-D.
CALL "SYSTEM" USING TOTA-D.

Hello. I am currently running my software on Windows 2019 server and I am experiencing a serious problem. The CALL SYSTEM instructions are not working, they are ignored on the new platform. Everything was working fine on Windows Server 2009 R2. Below are my instructions and I hope to receive your help in determining the problem.

02 COMP-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGCOMPA .\\WG\\WGCOMP".
     03 COMP-ANO-D PIC 9(4).
     03 COMP-MES-D PIC 9(2).

02 ALMC-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGALMC .\\WG\\WGALMC".
     03 ALMC-ANO-D PIC 9(4).
     03 ALMC-MES-D PIC 9(2).

02 MAES-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGMAEST .\\WG\\WGMAES".
     03 MAES-ANO-D PIC 9(4).
     03 MAES-MES-D PIC 9(2).

02 TRAN-D.
      03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGTRANS .\\WG\\WGTRAN".
      03 TRAN-ANO-D PIC 9(4).
      03 TRAN-MES-D PIC 9(2).

02 ESTA-D.
     03 FILLER PIC X(43) VALUE  "CMD.EXE /C COPY /Y .\\WG\\WGESTAD .\\WG\\WGESTA".
     03 ESTA-ANO-D PIC 9(4).
     03 ESTA-MES-D PIC 9(2).

02 TOTA-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGTOTAL .\\WG\\WGTOTA".
     03 TOTA-ANO-D PIC 9(4).
     03 TOTA-MES-D PIC 9(2).

HACER-BACKUP-MES-D.
MOVE I-MES-LINK TO COMP-MES-D
                                      ALMC-MES-D
                                      MAES-MES-D
                                     TRAN-MES-D
                                      ESTA-MES-D
                                     TOTA-MES-D.
MOVE I-ANO-LINK TO COMP-ANO-D
                                      ALMC-ANO-D
                                      MAES-ANO-D
                                      TRAN-ANO-D
                                      ESTA-ANO-D
                                     TOTA-ANO-D.

CALL "SYSTEM" USING COMP-D.
CALL "SYSTEM" USING ALMC-D.
CALL "SYSTEM" USING MAES-D.
CALL "SYSTEM" USING TRAN-D.
CALL "SYSTEM" USING ESTA-D.
CALL "SYSTEM" USING TOTA-D.

Hi Wascar, how are you?

What happen if you go to start, run cmd.exe?

Regards,

Juan



------------------------------
Juan Urraburu
IT Director
Axtrio S.A.
Santiago UY
------------------------------

Hello. I am currently running my software on Windows 2019 server and I am experiencing a serious problem. The CALL SYSTEM instructions are not working, they are ignored on the new platform. Everything was working fine on Windows Server 2009 R2. Below are my instructions and I hope to receive your help in determining the problem.

02 COMP-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGCOMPA .\\WG\\WGCOMP".
     03 COMP-ANO-D PIC 9(4).
     03 COMP-MES-D PIC 9(2).

02 ALMC-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGALMC .\\WG\\WGALMC".
     03 ALMC-ANO-D PIC 9(4).
     03 ALMC-MES-D PIC 9(2).

02 MAES-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGMAEST .\\WG\\WGMAES".
     03 MAES-ANO-D PIC 9(4).
     03 MAES-MES-D PIC 9(2).

02 TRAN-D.
      03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGTRANS .\\WG\\WGTRAN".
      03 TRAN-ANO-D PIC 9(4).
      03 TRAN-MES-D PIC 9(2).

02 ESTA-D.
     03 FILLER PIC X(43) VALUE  "CMD.EXE /C COPY /Y .\\WG\\WGESTAD .\\WG\\WGESTA".
     03 ESTA-ANO-D PIC 9(4).
     03 ESTA-MES-D PIC 9(2).

02 TOTA-D.
     03 FILLER PIC X(43) VALUE "CMD.EXE /C COPY /Y .\\WG\\WGTOTAL .\\WG\\WGTOTA".
     03 TOTA-ANO-D PIC 9(4).
     03 TOTA-MES-D PIC 9(2).

HACER-BACKUP-MES-D.
MOVE I-MES-LINK TO COMP-MES-D
                                      ALMC-MES-D
                                      MAES-MES-D
                                     TRAN-MES-D
                                      ESTA-MES-D
                                     TOTA-MES-D.
MOVE I-ANO-LINK TO COMP-ANO-D
                                      ALMC-ANO-D
                                      MAES-ANO-D
                                      TRAN-ANO-D
                                      ESTA-ANO-D
                                     TOTA-ANO-D.

CALL "SYSTEM" USING COMP-D.
CALL "SYSTEM" USING ALMC-D.
CALL "SYSTEM" USING MAES-D.
CALL "SYSTEM" USING TRAN-D.
CALL "SYSTEM" USING ESTA-D.
CALL "SYSTEM" USING TOTA-D.

Hi Wascar,

The RM Cobol call uses a separate parameter for the return code.

This is how our call looks with the return code as the 2nd parameter. 
I'm not sure how your 03 level parms, COMP-ANO-D, COMP-MES-D, affect the call.

Maybe run "Process Monitor" from SysInternals to see what the call looks like.

John

       01  WS-CMD-PARM.
           03  WS-COMMAND            PIC X(512).
           03  WS-CMD-RET            PIC S9(04).

           MOVE SPACES TO WS-COMMAND
           STRING "CMD.EXE /A /D /C CHDIR > CHDIR.TXT" 
               DELIMITED BY SIZE INTO WS-COMMAND.
           CALL "SYSTEM" USING WS-COMMAND WS-CMD-RET.



------------------------------
John Aukema
Software Engineer (pronounced ow' key mah)
Parklane Computer Systems
London ON CA
------------------------------