PROCEDURE DIVISION'

1
(No Transcript)
2
(No Transcript)
3
(No Transcript)
4
(No Transcript)
5
(No Transcript)
6
(No Transcript)
7
(No Transcript)
8
(No Transcript)
9
(No Transcript)
10
(No Transcript)
11
(No Transcript)
12
(No Transcript)
13
PROCEDURE DIVISION.  HLI-INITIALIZATION.     
Call 1 (ACCINI) - Initializing the HLI
environment.    CALL 'ACCINI' USING BY
DESCRIPTOR ERROR-CODE, 'TRACE', 'COBOL'.     
Call 2 (ACCSTO) - Storing values in ACCENT R
fields set a non-zero value                     
     to System Field _at_HLI_TRACE for debugging.
This causes                          all HLI
calls to display a trace when executed.
Tracing                          can be disabled
for any call with the                        
NOTRACE option.    CALL 'ACCSTO' USING BY
DESCRIPTOR ERROR-CODE,'TRACE',        BY
DESCRIPTOR SET-TO-0, '_at_HLI_TRACE', BY DESCRIPTOR
SET-TO-1.       Control loop that handles the
order processing.  CONTROL-CENTER.      
PERFORM DBL-SPECIFICATION THRU 911-QUIT.       IF
ERROR-CODE IS NOT EQUAL TO ZERO,            
PERFORM BEGIN-ORDER THRU 950-OUT                  
UNTIL D-STORE-CODE 'STOP' OR D-STORE-CODE
'stop'.       IF ERROR-CODE IS EQUAL TO 0,
PERFORM TERMINATION.      Close all DS's and
DBL/clean-up.  NORMAL-END.       CALL 'ACCCLS'
USING BY DESCRIPTOR ERROR-CODE,'ALL'.      
DISPLAY SPACE.       Execute command.  Use
OSQL to review sales file.       DISPLAY '!!
BUILDING SCREEN TO REVIEW SALES FILE !!'.      
DISPLAY SPACE.  STOP RUN.
COBOL
COmmon Business-Oriented Language
14
REM Very very simple Basic program PRINT "My
Menu" PRINT "Press 1 to clear the screen, or 2
to say 'Hello'!" INPUT "What do you want to do"
choice IF choice 1 THEN GOTO clrscr IF
choice 2 THEN GOTO hello clrscr CLS PRINT
"Done." END hello PRINT "Hello, hello, hello!"
END
BASIC
Beginners All-purpose Symbolic Instruction Code
(BASIC)
15
ltbr clearbothgt ltdtgtltbgtltfont size'1'gtltahref'ht
tp//developer.netscape.com/library/documentation/
communicator/jsref/index_dvn.htm'gt JavaScript lt/a
gt lt/fontgtlt/bgtlt/dtgt ltddgtltigtLanguage
typelt/igt ltulgtltfont size'-1'gtC - Command or
Scripting lt/ulgtlt/fontgtltpgtlt/ddgt ltddgtltigtDescription
lt/igt
HTML
Hyper Text Mark-Up Language
16
JAVA
17
Salary Calculations