81 lines
2.1 KiB
COBOL
81 lines
2.1 KiB
COBOL
IDENTIFICATION DIVISION.
|
|
PROGRAM-ID. test36l.
|
|
ENVIRONMENT DIVISION.
|
|
CONFIGURATION SECTION.
|
|
INPUT-OUTPUT SECTION.
|
|
FILE-CONTROL.
|
|
SELECT ARQ ASSIGN TO "Raw.dat"
|
|
ORGANIZATION IS INDEXED
|
|
ACCESS MODE IS DYNAMIC
|
|
RECORD KEY IS ARQ-KEY
|
|
FILE STATUS IS FS.
|
|
|
|
DATA DIVISION.
|
|
FILE SECTION.
|
|
|
|
FD ARQ
|
|
LABEL RECORD IS STANDARD.
|
|
01 REG-ARQ.
|
|
03 ARQ-KEY PIC 9(03).
|
|
03 DESCRIPTION PIC X(60) VALUE "AAAAAAAAAAAAAAA".
|
|
|
|
|
|
WORKING-STORAGE SECTION.
|
|
01 FS PIC 9(02).
|
|
01 W-COUNTER PIC 9(15).
|
|
01 REM PIC 9(5).
|
|
01 W01-SWITCHES PIC X(03).
|
|
88 W01-END VALUE "YES".
|
|
88 W01-MORE VALUE "NO".
|
|
01 FNAME PIC X(128) VALUE LOW-VALUES.
|
|
01 FKEY PIC X(128) VALUE LOW-VALUES.
|
|
01 PID PIC X(128) VALUE LOW-VALUES.
|
|
01 USERNAME PIC X(128) VALUE LOW-VALUES.
|
|
|
|
PROCEDURE DIVISION.
|
|
MAIN SECTION.
|
|
OPEN I-O ARQ.
|
|
MOVE "NO" TO W01-SWITCHES.
|
|
PERFORM READ-IT UNTIL W01-END.
|
|
UNLOCK ARQ.
|
|
CLOSE ARQ.
|
|
STOP RUN.
|
|
|
|
WRITE-IT.
|
|
ADD 1 TO W-COUNTER.
|
|
MOVE W-COUNTER TO ARQ-KEY.
|
|
WRITE REG-ARQ.
|
|
|
|
READ-IT.
|
|
DISPLAY "Enter the Record to Lock (1-998) 0 to Stop".
|
|
ACCEPT W-COUNTER.
|
|
MOVE W-COUNTER TO ARQ-KEY.
|
|
IF W-COUNTER = 0
|
|
MOVE "YES" TO W01-SWITCHES.
|
|
READ ARQ AT END
|
|
MOVE "YES" TO W01-SWITCHES.
|
|
DISPLAY "FS FOR STANDARD READ " FS.
|
|
IF FS = "51" PERFORM DISPLAY-LOCK.
|
|
READ ARQ WITH IGNORE LOCK AT END
|
|
MOVE "YES" TO W01-SWITCHES.
|
|
DISPLAY "FS FOR IGNORE LOCK " FS.
|
|
IF FS = "51" PERFORM DISPLAY-LOCK.
|
|
IF W01-MORE
|
|
DISPLAY REG-ARQ
|
|
MOVE W-COUNTER TO ARQ-KEY
|
|
READ ARQ WITH LOCK.
|
|
display "FS FOR READ WITH LOCK " FS.
|
|
IF FS = "51" PERFORM DISPLAY-LOCK.
|
|
|
|
DISPLAY-LOCK.
|
|
MOVE LOW-VALUES TO FNAME.
|
|
MOVE LOW-VALUES TO FKEY.
|
|
STRING "Raw.dat" DELIMITED BY LOW-VALUES INTO FNAME.
|
|
STRING ARQ-KEY DELIMITED BY LOW-VALUES INTO FKEY.
|
|
MOVE LOW-VALUES TO PID.
|
|
MOVE LOW-VALUES TO USERNAME.
|
|
CALL "show_lock" USING FNAME, FKEY, PID, USERNAME.
|
|
DISPLAY "Pid: " PID.
|
|
DISPLAY "Username: " USERNAME.
|
|
|