1) Rearrange the code in correct and logical statement order. 2) Provide a value for the &NAME variable. This value should be your user profile name. 3) Compile the program to create an executable object. To make sure your program compiled you can use various methods including displaying your messages; displaying the program; display the object description; look at your submitted jobs; but the best way is to look for the compiler listing with the same name as your program. Provide the compile listing. The compiled time must match the object created. 4) Execute and test the program. 5) Make sure MCAMPBELL has *USE authority to your library and *USE authority to all objects in you library I will execute the program to confirm it works. Please note that: You may enter this code into SEU (PDM editor) yourself or you may copy it to your CL Source file from QCLSRC member ASSIGN2 from library BCI433N1A by executing this CL command your command line (nn is your class student #): CPYF FROMFILE(BCI433N1A/QCLSRC) TOFILE(CE432Bnn/QCLSRC) FROMMBR(ASSIGN2) TOMBR(ASSIGN2) Lines 1 through 3 are comment lines that should be read and reviewed. They should remain as is. Line 6 is a continuation of line 5. A plus sign '+' at the end of a line means that the following line is a continuation of the command statement. Line 5 and 6 should be treated as one line. Lines to be resequenced begin at line # 4. Program Code for ASSIGN2 0001.00 /* Program assumes the user profile and library name are the same */ 0002.00 /* The users message queue is put into *break status F16 TO CLEAR */ 0003.00 /* Program monitored to ignore the message if a file is not created */ 0004.00 CRTPF FILE(&NAME/ASG2) RCDLEN(50) TEXT('1 FIELD FILE ') 0005.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(37) VALUE('Hello + 0006.00 World. PRESS ENTER TO CONTINUE') 0007.00 DSPJOBLOG 0008.00 DSPFD FILE(&NAME/ASG2) /* File Description */ 0009.00 SNDMSG MSG(&MSG) TOUSR(&NAME) 0010.00 ENDPGM 0011.00 MONMSG MSGID(CPF7302) /* ignore file creation */ 0012.00 DCL VAR(&NAME) TYPE(*CHAR) LEN(10) VALUE('CE432B40') 0013.00 CHGMSGQ MSGQ(&NAME) DLVRY(*BREAK) /*SHOULD BE CLEARED*/ 0014.00 PGM 0015.00 DSPLIB LIB(&NAME) /* Display library */

1) Rearrange the code in correct and logical statement order. 2) Provide a value for the &NAME variable. This value should be your user profile name. 3) Compile the program to create an executable object. To make sure your program compiled you can use various methods including displaying your messages; displaying the program; display the object description; look at your submitted jobs; but the best way is to look for the compiler listing with the same name as your program. Provide the compile listing. The compiled time must match the object created. 4) Execute and test the program. 5) Make sure MCAMPBELL has USE authority to your library and USE authority to all objects in you library I will execute the program to confirm it works. Please note that: You may enter this code into SEU (PDM editor) yourself or you may copy it to your CL Source file from QCLSRC member ASSIGN2 from library BCI433N1A by executing this CL command your command line (nn is your class student #): CPYF FROMFILE(BCI433N1A/QCLSRC) TOFILE(CE432Bnn/QCLSRC) FROMMBR(ASSIGN2) TOMBR(ASSIGN2) Lines 1 through 3 are comment lines that should be read and reviewed. They should remain as is. Line 6 is a continuation of line 5. A plus sign '+' at the end of a line means that the following line is a continuation of the command statement. Line 5 and 6 should be treated as one line. Lines to be resequenced begin at line # 4. Program Code for ASSIGN2 0001.00 /* Program assumes the user profile and library name are the same / 0002.00 / The users message queue is put into break status F16 TO CLEAR / 0003.00 /* Program monitored to ignore the message if a file is not created / 0004.00 CRTPF FILE(&NAME/ASG2) RCDLEN(50) TEXT('1 FIELD FILE ') 0005.00 DCL VAR(&MSG) TYPE(CHAR) LEN(37) VALUE('Hello + 0006.00 World. PRESS ENTER TO CONTINUE') 0007.00 DSPJOBLOG 0008.00 DSPFD FILE(&NAME/ASG2) /* File Description / 0009.00 SNDMSG MSG(&MSG) TOUSR(&NAME) 0010.00 ENDPGM 0011.00 MONMSG MSGID(CPF7302) / ignore file creation / 0012.00 DCL VAR(&NAME) TYPE(CHAR) LEN(10) VALUE('CE432B40') 0013.00 CHGMSGQ MSGQ(&NAME) DLVRY(BREAK) /SHOULD BE CLEARED/ 0014.00 PGM 0015.00 DSPLIB LIB(&NAME) / Display library */

Computer Networking: A Top-Down Approach (7th Edition)

7th Edition

ISBN:9780133594140

Author:James Kurose, Keith Ross

Publisher:James Kurose, Keith Ross

Chapter1: Computer Networks And The Internet

Section: Chapter Questions

Problem R1RQ: What is the difference between a host and an end system? List several different types of end...

See similar textbooks

Related questions

Question

1) Rearrange the code in correct and logical statement order.

2) Provide a value for the &NAME variable. This value should be your user profile name.

3) Compile the program to create an executable object. To make sure your program compiled you can use various methods including displaying your messages; displaying the program; display the object description; look at your submitted jobs; but the best way is to look for the compiler listing with the same name as your program. Provide the compile listing. The compiled time must match the object created.

4) Execute and test the program.

5) Make sure MCAMPBELL has *USE authority to your library and *USE authority to all objects in you library I will

execute the program to confirm it works.

Please note that:

You may enter this code into SEU (PDM editor) yourself or you may copy it to your CL Source file from QCLSRC member ASSIGN2 from library BCI433N1A by executing this CL command your command line (nn is your class student #):

CPYF FROMFILE(BCI433N1A/QCLSRC) TOFILE(CE432Bnn/QCLSRC) FROMMBR(ASSIGN2) TOMBR(ASSIGN2)

Lines 1 through 3 are comment lines that should be read and reviewed. They should remain as is.

Line 6 is a continuation of line 5. A plus sign '+' at the end of a line means that the following line is a continuation of

the command statement. Line 5 and 6 should be treated as one line.

Lines to be resequenced begin at line # 4.

Program Code for ASSIGN2

0001.00 /* Program assumes the user profile and library name are the same */
0002.00 /* The users message queue is put into *break status F16 TO CLEAR */
0003.00 /* Program monitored to ignore the message if a file is not created */
0004.00 CRTPF FILE(&NAME/ASG2) RCDLEN(50) TEXT('1 FIELD FILE ')
0005.00 DCL VAR(&MSG) TYPE(*CHAR) LEN(37) VALUE('Hello +
0006.00 World. PRESS ENTER TO CONTINUE')
0007.00 DSPJOBLOG
0008.00 DSPFD FILE(&NAME/ASG2) /* File Description */
0009.00 SNDMSG MSG(&MSG) TOUSR(&NAME)
0010.00 ENDPGM
0011.00 MONMSG MSGID(CPF7302) /* ignore file creation */
0012.00 DCL VAR(&NAME) TYPE(*CHAR) LEN(10) VALUE('CE432B40')
0013.00 CHGMSGQ MSGQ(&NAME) DLVRY(*BREAK) /*SHOULD BE CLEARED*/
0014.00 PGM
0015.00 DSPLIB LIB(&NAME) /* Display library */

Expert Solution

Step by step

Solved in 2 steps with 1 images

SEE SOLUTION Check out a sample Q&A here