home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / source / ch06 / CHAPT06A.COB next >
Text File  |  1998-09-14  |  618b  |  19 lines
  1. 000010 @OPTIONS MAIN
  2. 000020 Identification Division.
  3. 000030 Program-Id.  Chapt06a.
  4. 000031* Command Line Argument
  5. 000040 Environment Division.
  6. 000050 Configuration Section.
  7. 000051 Source-Computer.  IBM-PC.
  8. 000055 Object-Computer.  IBM-PC.
  9. 000056 Special-Names.
  10. 000057     Argument-Value Is Command-Line.
  11. 000058 Data Division.
  12. 000059 Working-Storage Section.
  13. 000067 01  Command-Line-Argument Pic X(80).
  14. 000077 Procedure Division.
  15. 000159 Chapt06a-Start.
  16. 000167     Accept Command-Line-Argument From Command-Line
  17. 000169     Display "Command Line: " Command-Line-Argument
  18. 000187       Stop Run
  19. 000198     .