atomicapples Posted March 18 Report Share Posted March 18 i think i past my test today.. woohoo... **** Top of File ****0001 IDENTIFICATION DIVISION.0002 PROGRAM-ID. PGM2.0003 ENVIRONMENT DIVISION.0004 CONFIGURATION SECTION.0005 INPUT-OUTPUT SECTION.0006 FILE-CONTROL.0007 SELECT STUDENT-FILE ASSIGN "STUDENT.DAT".0008 SELECT REPORT-FILE ASSIGN TO PRINTER.0009 DATA DIVISION.0010 FILE SECTION.0011 COPY STUDENT.LIB.0012 FD STUDENT-FILE.0013 01 STUDENT-REC.0014 05 ST-SS-NBR PIC 9(9).0015 05 ST-FNAME PIC X(15).0016 05 ST-LNAME PIC X(15).0017 05 ST-MAJOR-CODE PIC X(3).0018 05 ST-GPA PIC 9V99.0019 FD REPORT-FILE.0020 01 REPORT-REC PIC X(80).0021 WORKING-STORAGE SECTION.0022 01 WK-REC.0023 05 EOJ-FLAG PIC X(1) VALUE "Y".0024 05 LINE-CNT PIC 9(2) VALUE 50.0025 05 PAGE-CNT PIC 9(2) VALUE 0.0026 01 HEADING-1.0027 05 FILLER PIC X(6) VALUE " DATE".0028 05 DATE-H1 PIC X(8).0029 05 FILLER PIC X(5) VALUE SPACES.0030 05 FILLER PIC X(52) VALUE "STUDENT RECORD".0031 05 FILLER PIC X(5) VALUE "PAGE".0032 05 PAGE-H1 PIC Z9.0033 01 HEADING-2.0034 05 FILLER PIC X(15) VALUE " SS".0035 05 FILLER PIC X(17) VALUE "FIRST NAME".0036 05 FILLER PIC X(17) VALUE "LAST NAME".0037 05 FILLER PIC X(17) VALUE "MAJOR CODE".0038 05 FILLER PIC X(17) VALUE "GPA".0039 01 DETAIL-1.0040 05 FILLER PIC X(3).0041 05 ST-SS-NBR-D1 PIC 9(9).0042 05 FILLER PIC X(6).0043 05 ST-FNAME-D1 PIC X(15).0044 05 FILLER PIC X(2).0045 05 ST-LNAME-D1 PIC X(15).0046 05 FILLER PIC X(1).0047 05 ST-MAJOR-CODE-D1 PIC X(3).0048 05 FILLER PIC X(14).0049 05 ST-GPA-D1 PIC 9V99.0050 05 FILLER PIC X(13).0051 PROCEDURE DIVISION.0052 100-START.0053 OPEN INPUT STUDENT-FILE0054 OPEN OUTPUT REPORT-FILE0055 READ STUDENT-FILE AT END MOVE "Y" TO EOJ-FLAG.0056 PERFORM 300-LOOP0057 UNTIL EOJ-FLAG = "Y".0058 CLOSE STUDENT-FILE0059 CLOSE REPORT-FILE.0060 STOP RUN.0061 300-LOOP.0062 ADD 1 TO LINE-CNT.0063 IF LINE-CNT > 250064 PERFORM 999-HEAD-RTN.0065 MOVE 1 TO LINE-CNT.0066 MOVE ST-SS-NBR TO ST-SS-NBR-D1.0067 MOVE ST-FNAME TO ST-FNAME-D1.0068 MOVE ST-LNAME TO ST-LNAME-D1.0069 MOVE ST-MAJOR-CODE TO ST-MAJOR-CODE-D1.0070 MOVE ST-GPA TO ST-GPA-D1.0071 999-HEAD-RTN.0072 ADD 1 TO PAGE-CNT.0073 WRITE REPORT-REC FROM HEADING-10074 AFTER ADVANCING PAGE.0075 WRITE REPORT-REC FROM HEADING-20076 AFTER ADVANCING 2 LINES.00770078READ ONLY SIZE = 518 (X"00000206") BYTESREAD/WRITE SIZE = 692 (X"000002B4") BYTESOVERLAYABLE SEGMENT SIZE = 0 (X"00000000") BYTESTOTAL GENERATED OBJECT SIZE = 1210 (X"000004BA") BYTES 78 LINES 0 ERRORS 0 WARNINGS FOR PROGRAM PGM2OBJECT VERSION LEVEL = 2OPTIONS IN EFFECT: Y - SYMBOL TABLE OUTPUT TO OBJECT FILE**** End of File **** Quote Link to comment Share on other sites More sharing options...
phatman Posted March 18 Report Share Posted March 18 ...are you making a pass at joeg?... Quote Link to comment Share on other sites More sharing options...
barslut Posted March 18 Report Share Posted March 18 I think you should take another old ass shitty language next , i suggest sandscript. Quote Link to comment Share on other sites More sharing options...
atomicapples Posted March 18 Author Report Share Posted March 18 sandscript is old... i know it. Quote Link to comment Share on other sites More sharing options...
atomicapples Posted March 18 Author Report Share Posted March 18 sandscript is old... i know it. Quote Link to comment Share on other sites More sharing options...
atomicapples Posted March 18 Author Report Share Posted March 18 sandscript is old... i know it. Quote Link to comment Share on other sites More sharing options...
joeg Posted March 18 Report Share Posted March 18 Originally posted by atomicapples i think i past my test today.. woohoo... **** Top of File ****0001 IDENTIFICATION DIVISION.0002 PROGRAM-ID. PGM2.0003 ENVIRONMENT DIVISION.0004 CONFIGURATION SECTION.0005 INPUT-OUTPUT SECTION.0006 FILE-CONTROL.0007 SELECT STUDENT-FILE ASSIGN "STUDENT.DAT".0008 SELECT REPORT-FILE ASSIGN TO PRINTER.0009 DATA DIVISION.0010 FILE SECTION.0011 COPY STUDENT.LIB.0012 FD STUDENT-FILE.0013 01 STUDENT-REC.0014 05 ST-SS-NBR PIC 9(9).0015 05 ST-FNAME PIC X(15).0016 05 ST-LNAME PIC X(15).0017 05 ST-MAJOR-CODE PIC X(3).0018 05 ST-GPA PIC 9V99.0019 FD REPORT-FILE.0020 01 REPORT-REC PIC X(80).0021 WORKING-STORAGE SECTION.0022 01 WK-REC.0023 05 EOJ-FLAG PIC X(1) VALUE "Y".0024 05 LINE-CNT PIC 9(2) VALUE 50.0025 05 PAGE-CNT PIC 9(2) VALUE 0.0026 01 HEADING-1.0027 05 FILLER PIC X(6) VALUE " DATE".0028 05 DATE-H1 PIC X(8).0029 05 FILLER PIC X(5) VALUE SPACES.0030 05 FILLER PIC X(52) VALUE "STUDENT RECORD".0031 05 FILLER PIC X(5) VALUE "PAGE".0032 05 PAGE-H1 PIC Z9.0033 01 HEADING-2.0034 05 FILLER PIC X(15) VALUE " SS".0035 05 FILLER PIC X(17) VALUE "FIRST NAME".0036 05 FILLER PIC X(17) VALUE "LAST NAME".0037 05 FILLER PIC X(17) VALUE "MAJOR CODE".0038 05 FILLER PIC X(17) VALUE "GPA".0039 01 DETAIL-1.0040 05 FILLER PIC X(3).0041 05 ST-SS-NBR-D1 PIC 9(9).0042 05 FILLER PIC X(6).0043 05 ST-FNAME-D1 PIC X(15).0044 05 FILLER PIC X(2).0045 05 ST-LNAME-D1 PIC X(15).0046 05 FILLER PIC X(1).0047 05 ST-MAJOR-CODE-D1 PIC X(3).0048 05 FILLER PIC X(14).0049 05 ST-GPA-D1 PIC 9V99.0050 05 FILLER PIC X(13).0051 PROCEDURE DIVISION.0052 100-START.0053 OPEN INPUT STUDENT-FILE0054 OPEN OUTPUT REPORT-FILE0055 READ STUDENT-FILE AT END MOVE "Y" TO EOJ-FLAG.0056 PERFORM 300-LOOP0057 UNTIL EOJ-FLAG = "Y".0058 CLOSE STUDENT-FILE0059 CLOSE REPORT-FILE.0060 STOP RUN.0061 300-LOOP.0062 ADD 1 TO LINE-CNT.0063 IF LINE-CNT > 250064 PERFORM 999-HEAD-RTN.0065 MOVE 1 TO LINE-CNT.0066 MOVE ST-SS-NBR TO ST-SS-NBR-D1.0067 MOVE ST-FNAME TO ST-FNAME-D1.0068 MOVE ST-LNAME TO ST-LNAME-D1.0069 MOVE ST-MAJOR-CODE TO ST-MAJOR-CODE-D1.0070 MOVE ST-GPA TO ST-GPA-D1.0071 999-HEAD-RTN.0072 ADD 1 TO PAGE-CNT.0073 WRITE REPORT-REC FROM HEADING-10074 AFTER ADVANCING PAGE.0075 WRITE REPORT-REC FROM HEADING-20076 AFTER ADVANCING 2 LINES.00770078READ ONLY SIZE = 518 (X"00000206") BYTESREAD/WRITE SIZE = 692 (X"000002B4") BYTESOVERLAYABLE SEGMENT SIZE = 0 (X"00000000") BYTESTOTAL GENERATED OBJECT SIZE = 1210 (X"000004BA") BYTES 78 LINES 0 ERRORS 0 WARNINGS FOR PROGRAM PGM2OBJECT VERSION LEVEL = 2OPTIONS IN EFFECT: Y - SYMBOL TABLE OUTPUT TO OBJECT FILE**** End of File **** I love it when you talk dirty to me!!! Quote Link to comment Share on other sites More sharing options...
phuturephunk Posted March 18 Report Share Posted March 18 ...ooooh! thats hot!!!.....is Fortran next?... Quote Link to comment Share on other sites More sharing options...
nympho69 Posted March 18 Report Share Posted March 18 Originally posted by atomicapples i think i past my test today.. woohoo... **** Top of File ****0001 IDENTIFICATION DIVISION.0002 PROGRAM-ID. PGM2.0003 ENVIRONMENT DIVISION.0004 CONFIGURATION SECTION.0005 INPUT-OUTPUT SECTION.0006 FILE-CONTROL.0007 SELECT STUDENT-FILE ASSIGN "STUDENT.DAT".0008 SELECT REPORT-FILE ASSIGN TO PRINTER.0009 DATA DIVISION.0010 FILE SECTION.0011 COPY STUDENT.LIB.0012 FD STUDENT-FILE.0013 01 STUDENT-REC.0014 05 ST-SS-NBR PIC 9(9).0015 05 ST-FNAME PIC X(15).0016 05 ST-LNAME PIC X(15).0017 05 ST-MAJOR-CODE PIC X(3).0018 05 ST-GPA PIC 9V99.0019 FD REPORT-FILE.0020 01 REPORT-REC PIC X(80).0021 WORKING-STORAGE SECTION.0022 01 WK-REC.0023 05 EOJ-FLAG PIC X(1) VALUE "Y".0024 05 LINE-CNT PIC 9(2) VALUE 50.0025 05 PAGE-CNT PIC 9(2) VALUE 0.0026 01 HEADING-1.0027 05 FILLER PIC X(6) VALUE " DATE".0028 05 DATE-H1 PIC X(8).0029 05 FILLER PIC X(5) VALUE SPACES.0030 05 FILLER PIC X(52) VALUE "STUDENT RECORD".0031 05 FILLER PIC X(5) VALUE "PAGE".0032 05 PAGE-H1 PIC Z9.0033 01 HEADING-2.0034 05 FILLER PIC X(15) VALUE " SS".0035 05 FILLER PIC X(17) VALUE "FIRST NAME".0036 05 FILLER PIC X(17) VALUE "LAST NAME".0037 05 FILLER PIC X(17) VALUE "MAJOR CODE".0038 05 FILLER PIC X(17) VALUE "GPA".0039 01 DETAIL-1.0040 05 FILLER PIC X(3).0041 05 ST-SS-NBR-D1 PIC 9(9).0042 05 FILLER PIC X(6).0043 05 ST-FNAME-D1 PIC X(15).0044 05 FILLER PIC X(2).0045 05 ST-LNAME-D1 PIC X(15).0046 05 FILLER PIC X(1).0047 05 ST-MAJOR-CODE-D1 PIC X(3).0048 05 FILLER PIC X(14).0049 05 ST-GPA-D1 PIC 9V99.0050 05 FILLER PIC X(13).0051 PROCEDURE DIVISION.0052 100-START.0053 OPEN INPUT STUDENT-FILE0054 OPEN OUTPUT REPORT-FILE0055 READ STUDENT-FILE AT END MOVE "Y" TO EOJ-FLAG.0056 PERFORM 300-LOOP0057 UNTIL EOJ-FLAG = "Y".0058 CLOSE STUDENT-FILE0059 CLOSE REPORT-FILE.0060 STOP RUN.0061 300-LOOP.0062 ADD 1 TO LINE-CNT.0063 IF LINE-CNT > 250064 PERFORM 999-HEAD-RTN.0065 MOVE 1 TO LINE-CNT.0066 MOVE ST-SS-NBR TO ST-SS-NBR-D1.0067 MOVE ST-FNAME TO ST-FNAME-D1.0068 MOVE ST-LNAME TO ST-LNAME-D1.0069 MOVE ST-MAJOR-CODE TO ST-MAJOR-CODE-D1.0070 MOVE ST-GPA TO ST-GPA-D1.0071 999-HEAD-RTN.0072 ADD 1 TO PAGE-CNT.0073 WRITE REPORT-REC FROM HEADING-10074 AFTER ADVANCING PAGE.0075 WRITE REPORT-REC FROM HEADING-20076 AFTER ADVANCING 2 LINES.00770078READ ONLY SIZE = 518 (X"00000206") BYTESREAD/WRITE SIZE = 692 (X"000002B4") BYTESOVERLAYABLE SEGMENT SIZE = 0 (X"00000000") BYTESTOTAL GENERATED OBJECT SIZE = 1210 (X"000004BA") BYTES 78 LINES 0 ERRORS 0 WARNINGS FOR PROGRAM PGM2OBJECT VERSION LEVEL = 2OPTIONS IN EFFECT: Y - SYMBOL TABLE OUTPUT TO OBJECT FILE**** End of File **** aaaaaaaaaaaaay papii just had my first multiple in over a year... Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.