perm filename TEST.SHT[T,LSP] blob sn#654025 filedate 1981-12-08 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TEST: 
C00003 00003	dial 642-9600
C00005 ENDMK
C⊗;
TEST: 
        PROCEDURE OPTIONS (MAIN);
        DECLARE I FIXED BIN (15),
        AR (5) FIXED BIN (15) INIT (1,2,3,4,5);
        I = 2;
        GET LIST (I,AR(I));
        PUT SKIP LIST (I,AR(1),AR(2),AR(3),AR(4),AR(5));
END TEST;

For 3 7:
3 1 2 7 4 5

For 5 9:
5 1 2 3 4 9
 
INPUT
TEST: 
        PROCEDURE OPTIONS (MAIN);
        DECLARE (I,J,K) FIXED BIN (15),
	L FIXED BIN (15);
        I = 1;
        J = 16;
        K = (I + J) / 2;
        PUT SKIP LIST (K);
END TEST;

For 3 7:
3 1 2 7 4 5

For 5 9:
5 1 2 3 4 9
 
dial 642-9600

LOGON LIS$10
CXRZ5EG9
EXEC PROFSTD
IPL CMS
edit TEST2 PLIOPT
PLIOPT TEST2

PL/I OPTIMIZERV1 R3.0 PTF 69 TIME: 16.30.44  DATE8 8 DEC 81
OPTIONS SPECIFIED
OP OPT(2) F(I) S AG C GS MI('|') IS LC(60) NEST STMT NNUM LMSG STG;

COMPILER DIAGNOSTIC MESSAGES
ERROR ID L   STMT    MESSAGE DESCRIPTION
COIPILER INFORMATORY MESSAGES
IEL0533I I           NO 'DECLARE' STATEMENT(S) FOR 'SISPRINT'.
IEL0541I I   1       'ORDER' OPTION APPLIES TO THIS BLOCK.    OPTIMIZATIOF MAY B
E INHIBITED.
END OF COMPILER DIAGNOSTIC MESSAGES
COMPILE TIME    0.00 MINS        SPILL FILE:     0 RECORDS, SIZE  3491
R; T=0.59/1.25 16:31:11
LOAD TEST2 (START


DMSLIO740I EXECUTION BEGINS...

        8 
R; T=0.40/0.80 16:32:05

.λ
LOGO

CONNECT= 00:03:30 VIRTCPU= 000:01.34 TOTCPU= 000:03.17
SESSION COST = $        .89    COST SINCE JUL 1 = $     124.00
COST INCLUDES ONLY ONLINE SESSION CHARGES.  SEE "COST HELP" FOR INFO.
LOGOFF AT 16:32:21 PCT TUESDAY 12/08/81
~