![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
FAQ Revised: Thursday 22 March 2007 16:55:23
cob -V version @(#)cob.c 1.269 PRN=R1CAI/AAP:9g.K4.22.02 PTI=SP1 I see no work
rts32 V2.2 revision 0 build 10/10/2 G; 08303. Run Time System R1CAI/AA0/00000U
Application Server License Administration System - AppTrack ----------------------------------------------------------- 1. License List 2. License Summary 3. License Install 4. License Uninstall 5. Change/Set Password 6. Reinitialize Licensing 7. Current Users 9. Quit Enter the Menu Selection 2007/03/20 10:00:34 Installed Application Server licenses: ---------------------------------------------------------- 00001 Version of Server Express 32-bit Edition License units: 00005 **Developer Usage Duration: Unlimited 600000066666AI+ 03030 10000 05000 A000. ....
ecrire le programme suivant:
000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. HELLOWORLD. 000300 000400* 000500 ENVIRONMENT DIVISION. 000600 CONFIGURATION SECTION. 000700 SOURCE-COMPUTER. RM-COBOL. 000800 OBJECT-COMPUTER. RM-COBOL. 000900 001000 DATA DIVISION. 001100 FILE SECTION. 001200 100000 PROCEDURE DIVISION. 100100 100200 MAIN-LOGIC SECTION. 100300 BEGIN. 100400 DISPLAY " " LINE 1 POSITION 1 ERASE EOS. 100500 DISPLAY "Hello world!" LINE 15 POSITION 10. 100600 STOP RUN. 100700 MAIN-LOGIC-EXIT. 100800 EXIT.
compiler et lancer
#cob essai.cbl #rts32 essai Micro Focus Server Express V2.2 revision 000 RXCAI/AA0/00000 GNR-181060000AC HELLOWORLD@ 07032010065136 Hello world!
L'exemple qui suit prend 3 snapshot de l'utilisation du cobol espacé de 10 secondes.
./apptrack stats 3 10 ----------------------------------------------------------------------------- 2007/03/21 14:11:37 Installed Sys In Use --------- --- ------ **Developer Usage 10 0 0 Server Express 32-bit Edition ----------------------------------------------------------------------------- 2007/03/21 14:11:47 Installed Sys In Use --------- --- ------ **Developer Usage 10 0 0 Server Express 32-bit Edition ----------------------------------------------------------------------------- 2007/03/21 14:11:57 Installed Sys In Use --------- --- ------ **Developer Usage 10 0 0 Server Express 32-bit Edition
Copyright (c) 2006 Jean-Louis BICQUELET
Cette liste de question a été générée par makefaq.