Office of Information Services - Application Programming
Program Examples - I-types
How to use an itype in a program.
See NEW.SOURCE TEST.ITYPE
* using an i-type that is text can be done like this
OPEN 'DICT','STUDENTS' TO D.STUDENTS ELSE STOP "CAN'T OPEN STUDENTS DICT"
READV DISBURSE.TERM FROM D.STUDENTS,'DISBURSE.TERM',2 ELSE DISBURSE.TERM = ''
CRT DISBURSE.TERM
* if using an i-type that is doing calculations it would work like this
OPEN '','STUDENTS' TO F.STUDENTS ELSE STOP "CAN'T OPEN STUDENTS"
OPEN 'DICT','STUDENTS' TO D.STUDENTS ELSE STOP "CAN'T OPEN STUDENTS DICT"
READ NAME.DICT FROM D.STUDENTS,'NAME' ELSE STOP "CAN'T READ NAME FROM STUDENTS DICT"
ID = '0039433'
READ STU.REC FROM F.STUDENTS,ID ELSE STU.REC = ''
@ID = ID
@RECORD = STU.REC
READ @RECORD FROM F.STUDENTS,@ID THEN
NAME = ITYPE(NAME.DICT)
CRT NAME
END
END
Back to Top
Tools Library Menu
Application Tools-
Cleanup Tools-
OS.LIB-
PSU.LIB-
Paragraphs-
Program Lists-
References Menu-
Search Tools-
Skin Menu Maker-
Subroutines