| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 03:26:23 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=9a29166960ad7127d53d08125164dbad0271b7b8d86b0efa5261e839300cf1d4a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22Y7-pMZWnd7ZZzFRIBnV5jaz9e4-BmiAl%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d37ed27a64dfa6-BLR
Mystery COBOL example code - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- IDENTIFICATION DIVISION.
- PROGRAM-ID. sample_1nn.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL. SELECT EMPLOYEE-DATA ASSIGN TO "EMP.DAT".
- SELECT PAYROLL-LISTING ASSIGN TO "PAY.OUT".
- DATA DIVISION.
- FILE SECTION.
- FD EMPLOYEE-DATA.
- 01 EMPLOYEE-RECORD.
- 05 EMPLOYEE-NAME-IN PICTURE X(20).
- 05 HOURS-WORKED-IN PICTURE 9(2).
- 05 HOURLY-RATE-IN PICTURE 9V99.
- FD PAYROLL-LISTING.
- 01 PRINT-REC.
- 05 PICTURE X(20).
- 05 NAME-OUT PICTURE X(20).
- 05 PICTURE X(10).
- 05 HOURS-OUT PICTURE 9(2).
- 05 PICTURE X(8).
- 05 RATE-OUT PICTURE 9.99.
- 05 PICTURE X(6).
- 05 WEEKLY-WAGES-OUT PICTURE 999.99.
- WORKING-STORAGE SECTION.
- 01 ARE-THERE-MORE-RECORDS PICTURE XXX VALUE 'YES'.
- PROCEDURE DIVISION.
- 100-MAIN-MODULE.
- OPEN INPUT EMPLOYEE-DATA
- OUTPUT PAYROLL-LISTING
- PERFORM UNTIL ARE-THERE-MORE-RECORDS = 'NO '
- READ EMPLOYEE-DATA
- AT END
- MOVE 'NO ' TO ARE-THERE-MORE-RECORDS
- NOT AT END
- PERFORM 200-WAGE-ROUTINE
- END-READ
- END-PERFORM
- CLOSE EMPLOYEE-DATA
- PAYROLL-LISTING
- STOP RUN.
- 200-WAGE-ROUTINE.
- MOVE SPACES TO PRINT-REC
- MOVE EMPLOYEE-NAME-IN TO NAME-OUT
- MOVE HOURS-WORKED-IN TO HOURS-OUT
- MOVE HOURLY-RATE-IN TO RATE-OUT
- MULTIPLY HOURS-WORKED-IN BY HOURLY-RATE-IN
- GIVING WEEKLY-WAGES-OUT
- END-MULTIPLY
- WRITE PRINT-REC
- END-WRITE.
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ P
JavaScript | 5 sec ago | 0.25 KB
-
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐
Java | 6 sec ago | 0.10 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ X
JavaScript | 11 sec ago | 0.25 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ E
JavaScript | 14 sec ago | 0.25 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 17 sec ago | 0.10 KB
-
⭐✅ Swapzone Glitch ✅ Working ⭐⭐ X
JavaScript | 20 sec ago | 0.25 KB
-
📌 Swapzone +37% glitch ⭐ T
JavaScript | 23 sec ago | 0.25 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 28 sec ago | 0.10 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
