C O B O L ----------- THE ICL COBOL COMPILER HAS BEEN TRANSFERRED TO EMAS TOGETHER WITH A SUBSET OF THE RUN TIME SUPPORT. ONLY EMAS DATA FILES CAN BE PROCESSED IN THIS FIRST VERSION AND ONLY SEQUENTIAL ACCESS IS AVAILABLE. THE SORTING FACILITIES ARE NOT AVAILABLE. THE FOLLOWING COMMANDS ARE USED COBOL COBRUN COBDEFINE AND COBJSVAR THE FOLLWING DIRECTIVES SHOULD BE ISSUED EXTENDSESSIONDIRECTORY(1500,5000) OPTION(SEARCHDIR=ERCS10.COBDIR) COBOL ====== THIS IS USED TO COMPILE A PROGRAM. THE SIMPLEST FORM IS COBOL(SOURCEFILE,OBJECTFILE) ADDITIONAL PARAMETERS ARE AVAILABLE AND MAY BE SPECIFIED BY KEYWORD OR POSITION AS IN THE COBOLCOMPILE MACRO DETAILED IN "DEVELOPING COBOL PROGRAMS USING THE C2 COMPILER" TP6866. ONLY THE PARAMETERS RELEVANT TO THE COMPILATUON PHASE HAVE ANY SIGNIFICANCE AT PRESENT. E. G. COBOL(INPUT=COBPROG,OMF=COBPROGY,LISTINGS=NOSOURCE,SAV=LFILE) THE PROGRAM IS COMPILED TO OMF FORMAT CONVERTED TO EMAS OBJECT FORMAT AND THEN LINKED WITH THE COBOLRUN TIME LIBRARY. COBDEFINE ========== THIS IS USED TO ASSOCIATE FILES WITH THE LOCALNAME USED INTERNALLY IN THE COBOL PROGRAM. PARAMETERS MAY BE SPECIFIED BY KEYWORD OR POSITION. IN THE SIMPLEST FORMS IT IS COMPARABLE TO THE EMAS DEFINE COMMAND. E.G. COBDEFINE(SYSIN,INPUTDATA) WILL ASSOCIATE FILE INPUTDATA WITH LOCAL NAME SYSIN. THE FOLLOWING PARAMETERS ARE PROVIDED LNAME=LOCAL NAME NAME=FILE NAME SIZE=SIZE IN K BYTES FOR NEW FILE RECFM=RECORD FORMAT (AS IN DEFINE E.G.V2048) ACCESS=ACCESS REQUIRED (R OR W) DEFAULT IS R. ORG=FILE ORGANISATION KPOS=KEYPOSITION KLEN=KEYLENGTH E.G. COBDEFINE SYSOUT,PRINTFILE,SIZE=500,ACC=W COBJSVAR ========= THIS IS PROVIDED TO ALLOW THE DEFINITION OF JOB SPACE VARIABLES. INTEGER OR STRING VARIABLES MAY BE DEFINED THE FORMAT IS COBJSVAR(VARABLENAME,VALUE) THE MODE OF THE VARABLE WILL BE DEDUCED FROM THE VALUE. STRING VALUES MUST BE ENCLOSED IN QUOTES. THE , MAY BE REPLACED BY =. E.G. COBJSVAR(SYSFILEDEFN="FREDSFILE") COBRUN ====== THIS COMMAND IS USED TO EXECUTE A COBOL PROGRAM. ONLY ONE PARAMETER IS REQUIRED THE NAME OF THE OBJECT FILE. E.G. COBRUN(COBOBJ) COBCONV ====== THIS CAN BE USED TO CONVERT CHARACTER FILES TO DATA FILES. COBCONV(CHARFILE,DATAFILE) EXAMPLE OF RUN ============== EDIT SOURCE TO FILE COBSOURCE EDIT INPUT DATA FILE TO A FILE CDATA CONVERT CDATA TO A DATAFILE DDATA COBCONV(CDATA,DDATA) COMPILE PROGRAM COBOL(COBSOURCE,COBOBJ) DEFINE INPUT AND LISTING FILE COBDEFINE(SYSIN,DDATA) COBDEFINE(SYSOUT,PRINTFILE,ACC=W) RUN OBJECT PROGRAM COBRUN(COBOBJ) LIST OUTPUT FILE LIST(PRINTFILE,.LP)