在 COBOL 中写入顺序数据集使其成为不可访问的二进制文件
Writing to Sequential Dataset in COBOL makes it an inaccesible binary
以下代码应通过 DDINPUT 将一个顺序数据集作为输入,描述银行账户,并通过 DDOUTPUT 输出一个顺序数据集,其中包含余额大于 8,500,000 美元的银行账户所有者的姓名。但是,正如我们在 Stack Overflow 中,它没有。
IDENTIFICATION DIVISION.
PROGRAM-ID. TOPACCTS.
*
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DDINPUT
ORGANIZATION IS SEQUENTIAL.
SELECT OUTFILE ASSIGN TO DDOUTPUT
ORGANIZATION IS SEQUENTIAL.
*
DATA DIVISION.
FILE SECTION.
FD INFILE RECORD CONTAINS 80 CHARACTERS RECORDING MODE F.
01 ACCT-FIELDS.
05 LAST-NAME PIC A(11).
05 FIRST-NAME PIC A(22).
05 ACCT-NO-A PIC 9(8).
05 FILLER PIC X(3) VALUE SPACES.
05 ACCT-NO-B PIC 9(8).
05 FILLER PIC X(9) VALUE SPACES.
05 ACCT-BALANCE PIC $,$$$,$.99.
*
FD OUTFILE RECORD CONTAINS 80 CHARACTERS RECORDING MODE F.
01 PRINT-ACC.
05 LAST-NAME-O PIC A(11) VALUE SPACES.
05 FILLER PIC X(2) VALUE SPACES.
05 FIRST-NAME-O PIC A(22) VALUE SPACES.
*
WORKING-STORAGE SECTION.
01 WS-EOF PIC A VALUE SPACE.
01 RES PIC 9(7)V99.
01 WS-RECORD.
05 WS-LAST-NAME PIC A(11).
05 WS-FIRST-NAME PIC A(22).
05 WS-ACCT-NO-A PIC 9(8).
05 WS-ACCT-NO-B PIC 9(8).
05 WS-ACCT-BALANCE PIC $,$$$,$.99.
*
PROCEDURE DIVISION.
*
OPEN INPUT INFILE.
OPEN OUTPUT OUTFILE.
PERFORM UNTIL WS-EOF = 'Y'
READ INFILE INTO WS-RECORD
AT END MOVE 'Y' TO WS-EOF
NOT AT END PERFORM WRITE-RECORD
END-READ
END-PERFORM.
CLOSE INFILE.
CLOSE OUTFILE.
STOP RUN.
*
WRITE-RECORD.
COMPUTE RES = FUNCTION NUMVAL-C (ACCT-BALANCE).
IF RES > 8500000
DISPLAY "Adding " WS-FIRST-NAME " " WS-LAST-NAME "..."
MOVE SPACES TO PRINT-ACC
MOVE WS-LAST-NAME TO LAST-NAME-O
MOVE WS-FIRST-NAME TO FIRST-NAME-O
DISPLAY "Writing " FIRST-NAME-O " " LAST-NAME-O "..."
WRITE PRINT-ACC
END-IF.
代码正确余额大于 8,500,000 美元的所有者的姓名但没有正确编写,因为,当输出访问数据集,VS Code 抛出以下错误:
cannot open file:zowe_path. Detail: File seems to be binary and cannot be opened as text.
我是 COBOL 的新手,我不知道在写入输出时我做错了什么。可能是 JCL 导致了问题:
//TOPACJCL JOB 1,NOTIFY=&SYSUID
//***************************************************/
//COBRUN EXEC IGYWCL
//COBOL.SYSIN DD DSN=&SYSUID..SOURCE(TOPACCTS),DISP=SHR
//LKED.SYSLMOD DD DSN=&SYSUID..LOAD(TOPACCTS),DISP=SHR
//***************************************************/
// IF RC = 0 THEN
//***************************************************/
//RUN EXEC PGM=TOPACCTS
//STEPLIB DD DSN=&SYSUID..LOAD,DISP=SHR
//DDINPUT DD DSN=MY.DATA(INPUTD),DISP=SHR
//DDOUTPUT DD DSN=MY.DATA(OUTPUTD),DISP=SHR
//SYSOUT DD SYSOUT=*,OUTLIM=15000
//CEEDUMP DD DUMMY
//SYSUDUMP DD DUMMY
//***************************************************/
// ELSE
// ENDIF
希望你能帮助我,因为过去几个小时我一直在努力解决这个问题。
提前致谢!
编辑 #1:添加了“MOVE SPACES TO PRINT-ACC”,仍然不起作用。
尝试在更新之前将空格移动到输出记录
WRITE-RECORD.
COMPUTE RES = FUNCTION NUMVAL-C (ACCT-BALANCE).
IF RES > 8500000
DISPLAY "Adding " WS-FIRST-NAME " " WS-LAST-NAME "..."
Move space to PRINT-ACC
MOVE WS-LAST-NAME TO LAST-NAME-O
MOVE WS-FIRST-NAME TO FIRST-NAME-O
DISPLAY "Writing " FIRST-NAME-O " " LAST-NAME-O "..."
WRITE PRINT-ACC
END-IF.
基本上你只更新 LAST-NAME-O
和 FIRST-NAME-O
记录的其余部分将是 hex-zero's 因此被识别为二进制。您将能够在主机上使用 ISPF edit
或 File-Aid
等编辑文件
以下代码应通过 DDINPUT 将一个顺序数据集作为输入,描述银行账户,并通过 DDOUTPUT 输出一个顺序数据集,其中包含余额大于 8,500,000 美元的银行账户所有者的姓名。但是,正如我们在 Stack Overflow 中,它没有。
IDENTIFICATION DIVISION.
PROGRAM-ID. TOPACCTS.
*
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT INFILE ASSIGN TO DDINPUT
ORGANIZATION IS SEQUENTIAL.
SELECT OUTFILE ASSIGN TO DDOUTPUT
ORGANIZATION IS SEQUENTIAL.
*
DATA DIVISION.
FILE SECTION.
FD INFILE RECORD CONTAINS 80 CHARACTERS RECORDING MODE F.
01 ACCT-FIELDS.
05 LAST-NAME PIC A(11).
05 FIRST-NAME PIC A(22).
05 ACCT-NO-A PIC 9(8).
05 FILLER PIC X(3) VALUE SPACES.
05 ACCT-NO-B PIC 9(8).
05 FILLER PIC X(9) VALUE SPACES.
05 ACCT-BALANCE PIC $,$$$,$.99.
*
FD OUTFILE RECORD CONTAINS 80 CHARACTERS RECORDING MODE F.
01 PRINT-ACC.
05 LAST-NAME-O PIC A(11) VALUE SPACES.
05 FILLER PIC X(2) VALUE SPACES.
05 FIRST-NAME-O PIC A(22) VALUE SPACES.
*
WORKING-STORAGE SECTION.
01 WS-EOF PIC A VALUE SPACE.
01 RES PIC 9(7)V99.
01 WS-RECORD.
05 WS-LAST-NAME PIC A(11).
05 WS-FIRST-NAME PIC A(22).
05 WS-ACCT-NO-A PIC 9(8).
05 WS-ACCT-NO-B PIC 9(8).
05 WS-ACCT-BALANCE PIC $,$$$,$.99.
*
PROCEDURE DIVISION.
*
OPEN INPUT INFILE.
OPEN OUTPUT OUTFILE.
PERFORM UNTIL WS-EOF = 'Y'
READ INFILE INTO WS-RECORD
AT END MOVE 'Y' TO WS-EOF
NOT AT END PERFORM WRITE-RECORD
END-READ
END-PERFORM.
CLOSE INFILE.
CLOSE OUTFILE.
STOP RUN.
*
WRITE-RECORD.
COMPUTE RES = FUNCTION NUMVAL-C (ACCT-BALANCE).
IF RES > 8500000
DISPLAY "Adding " WS-FIRST-NAME " " WS-LAST-NAME "..."
MOVE SPACES TO PRINT-ACC
MOVE WS-LAST-NAME TO LAST-NAME-O
MOVE WS-FIRST-NAME TO FIRST-NAME-O
DISPLAY "Writing " FIRST-NAME-O " " LAST-NAME-O "..."
WRITE PRINT-ACC
END-IF.
代码正确余额大于 8,500,000 美元的所有者的姓名但没有正确编写,因为,当输出访问数据集,VS Code 抛出以下错误:
cannot open file:zowe_path. Detail: File seems to be binary and cannot be opened as text.
我是 COBOL 的新手,我不知道在写入输出时我做错了什么。可能是 JCL 导致了问题:
//TOPACJCL JOB 1,NOTIFY=&SYSUID
//***************************************************/
//COBRUN EXEC IGYWCL
//COBOL.SYSIN DD DSN=&SYSUID..SOURCE(TOPACCTS),DISP=SHR
//LKED.SYSLMOD DD DSN=&SYSUID..LOAD(TOPACCTS),DISP=SHR
//***************************************************/
// IF RC = 0 THEN
//***************************************************/
//RUN EXEC PGM=TOPACCTS
//STEPLIB DD DSN=&SYSUID..LOAD,DISP=SHR
//DDINPUT DD DSN=MY.DATA(INPUTD),DISP=SHR
//DDOUTPUT DD DSN=MY.DATA(OUTPUTD),DISP=SHR
//SYSOUT DD SYSOUT=*,OUTLIM=15000
//CEEDUMP DD DUMMY
//SYSUDUMP DD DUMMY
//***************************************************/
// ELSE
// ENDIF
希望你能帮助我,因为过去几个小时我一直在努力解决这个问题。 提前致谢!
编辑 #1:添加了“MOVE SPACES TO PRINT-ACC”,仍然不起作用。
尝试在更新之前将空格移动到输出记录
WRITE-RECORD.
COMPUTE RES = FUNCTION NUMVAL-C (ACCT-BALANCE).
IF RES > 8500000
DISPLAY "Adding " WS-FIRST-NAME " " WS-LAST-NAME "..."
Move space to PRINT-ACC
MOVE WS-LAST-NAME TO LAST-NAME-O
MOVE WS-FIRST-NAME TO FIRST-NAME-O
DISPLAY "Writing " FIRST-NAME-O " " LAST-NAME-O "..."
WRITE PRINT-ACC
END-IF.
基本上你只更新 LAST-NAME-O
和 FIRST-NAME-O
记录的其余部分将是 hex-zero's 因此被识别为二进制。您将能够在主机上使用 ISPF edit
或 File-Aid
等编辑文件