Problem:

To obtain this, the following will need to be done:

Resolution:

    identification division.

       program-id.  compname.

       environment division.

       data division.

       working-storage section.

       01  computername        pic x(20).

       procedure division.

           display "computername" upon environment-name.

           accept computername from environment-value.

           goback.

This program needs to be compiled and run as non-mainframe