CIS 808 Special Topics: AS/400 Lab 1 lab1.docBodnovich Modify an Existing Program and Print Its Output page 1 of 4In this lab you will - copy an existing source program into your library- modify the source program- compile the source program- review the compilation listing for errors- correct any errors in the source program and re-compile- execute the compiled program using data in the rpgshare library- print a compilation listing and a reportCopy member lab1 of file qrpgsrc in the cis810 library into your own file. The current contents of this member is in Exhibit 1 - Original Member. If you could execute this original member, the output would look like Exhibit 3 - Output From Original Member. You will make several modifications to this program for this lab. The instructions for these modifications are currently part of the member. After you have made your modifications, the member will look very similar to Exhibit 2 - Modified Member. Compile and execute the modified member. The data for executing this program is in the rpgshare library. Your output should look like Exhibit 4 - Output From Modified Member. Print the listing from compiling your programand the report from executing your program.Submit the printed output as your Lab 1 assignment.Due date: Wednesday, January 26, 2000.CIS 808 Special Topics: AS/400 Lab 1 lab1.docBodnovich Modify an Existing Program and Print Its Output page 2 of 40001.00 FCSCSTP IF F 0099 DISK 0002.00 FQPRINT O F 0132 OA PRINTER 0003.00 ICSCSTP NS 01 0004.00 I 1 60CUSTNO 0005.00 I 7 16 CFNAME 0006.00 SHIFT THE FOLLOWING 8 LINES 5 POSITIONS TO THE LEFT AND 0007.00 THEN DELETE THIS INSTRUCTION BEFORE COMPILING THE PROGRAM 0008.00 I 17 31 CLNAME 0009.00 I 32 51 CSTRET 0010.00 I 52 66 CCITYO 0011.00 I 67 68 CSTATE 0012.00 I 69 770CZIP 0013.00 I 78 870CPHONE 0014.00 I 88 930ORDATE 0015.00 I 94 992BALDUE 0016.00 OQPRINT E 202 HEADS0017.00 O UDATE Y 13 0018.00 MODIFY THE TITLE OF THE REPORT AND DELETE THIS LINE 0019.00 O 44 'COMPUSELL CUSTOMER' 0020.00 O 52 'LISTING' 0021.00 O 70 'PAGE' 0022.00 O PAGE 75 0023.00 INSERT THE EXTRA COLUMN HEADINGS AFTER THESE TWO LINES AND THEN 0024.00 DELETE THESE LINES 0025.00 O E 2 HEADS 0026.00 O 6 'NUMBER' 0027.00 O 22 'FIRST NAME' 0028.00 O 38 'LAST NAME' 0029.00 O 57 'DATE' 0030.00 O 73 'DUE' 0031.00 O E 1 DETAIL 0032.00 O CUSTNO 6 0033.00 O CFNAME 220034.00 O CLNAME 43 0035.00 O ORDATEY 59 0036.00 O BALDUE1 75 0037.00 MOVE THE FOLLOWING 8 LINES (CALCULATION SPECS) SO THEY APPEAR BETWEEN 0038.00 THE INPUT SPECS AND THE OUPTUT SPECS. THEN DELETE THESE 2 LINES. 0039.00 C EXCPTHEADS 0040.00 C READ CSCSTP 99 0041.00 C *IN99 DOWEQ*OFF 0042.00 C EXCPTDETAIL 0043.00 C READ CSCSTP 99 0044.00 C ENDDO 0045.00 C MOVE *ON *INLR 0046.00 C RETRN 0047.00 MODIFY THIS PROGRAM FOR THE FIRST LAB AS FOLLOWS: 0048.00 1. CHANGE THE HEADING FROM COMPUSELL CUSTOMER LISTING TO 0049.00 <YOUR NAME> INC. CUSTOMER LISTING. 0050.00 2. CHANGE THE COLUMN HEADINGS AS INDICATED IN THE LAB.0051.00 3. MAKE ALL CHANGES INDICATED IN THE BODY OF THIS PROGRAM. 0052.00 4. REMOVE THESE LAST SIX LINES BEFORE COMPILING THE PROGRAM.Exhibit 1 - Original MemberCIS 808 Special Topics: AS/400 Lab 1 lab1.docBodnovich Modify an Existing Program and Print Its Output page 3 of 4SEU==> PROG021 FMT F . .FFilenameIPEAF....RlenLK1AIOvKlocEDevice+......KExit++Entry+A....U 0001.00 FCSCSTP IF F 0099 DISK 0002.00 FQPRINT O F 0132 OA PRINTER FMT I .....IFilenameSqNORiPos1NCCPos2NCCPos3NCC.............................. 0003.00 ICSCSTP NS 01 FMT J .....I....................................PFromTo++DField+L1M1FrPlMnZr. 0004.00 I 1 60CUSTNO 0005.00 I 7 16 CFNAME 0006.00 I 17 31 CLNAME 0007.00 I 32 51