WORKING-STORAGE SECTION. 1 GROUP-ITEM. 05 AMOUNT-1 PIC 99V9 USAGE COMP VALUE 50. 05 AMOUNT-2 PIC 9(4)V99 USAGE COMP. PROCEDURE DIVISION. MOVE ZERO TO GROUP-ITEM. ADD 50 TO AMOUNT-1. DISPLAY AMOUNT-1. STOP RUN.
1 1442consider the following progrm statements MOVE 0 TO SW.NO.OF.REC PERFORM PRI-OUT UNTIL SW=1 DISPALY NO.OF.REC STOP RUN PRE-OUT READ IN-FILE AT END MOVE 1 TO SW WRITE OUO-REC FROM IN-REC ADD 1 TO NO.OF REC if the IN-FILE contains 1000 records what value will be displayed after the PERFORM is over? assume that N0.OF.REC has PIC 9(4) a.1000 b.1001 c.1 d.none of the above
1 1568//S10 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //CON DD DSN=VAR.INPUT1,DISP=SHR // DD DSN=VAR.INPUT2,DISP=SHR //OUT DD DSN=VAR.OUTPUT,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,5)),UNIT=SYSDA //TOOLIN DD * * Splice the needed data from the two VB files together SPLICE FROM(CON) TO(OUT) ON(5,5,CH) WITHALL - WITH(12,5) WITH(22,20) VLENMAX /*
894
Explain difference between read(1) and read work file once?
What is a ca split?
how to handle -911 (deadlock) error in a db2 program so that the program will never abend?
Is it possible to create an Instance in DB2 using DB2 Control Center ?
how we sort two input files based on a common column and giving one o/p file please send me the coding logic?
I have 60 steps in the JCL and want to Execute Only First from PROC by overriding in JCL ?
Explain how do you control cursor positioning?
What is program reentrance?
Hi, While I am trying to produce a html report from SAS interactive screen, I am always getting an error. I have attached the result of interactive execution with this. Please help me on this. NOTE: All profile changes will be lost at the end of the session. 1 *libname ia 'U19K.CAPS.SAS'; 2 3 /*Data declaration*/ 4 data work.staff; 5 infile 'U19K.CAPS.SAS (RAWDATA1)'; 6 input LastName $ 1-10 FirstName $ 11- 20 7 JobTitle $ 21-23 Salary 24- 28 8 BirthDat $ 29-37 Gender $ 38 9 run; 10 11 /*Basic "format" statement*/ 12 /*assign range of values to a variable and use it*/ 13 /*'$' should be used for a alphanumeric manipulation*/ NOTE: The infile 'U19K.CAPS.SAS(RAWDATA1)' is: Dsname=U19K.CAPS.SAS (RAWDATA1), Unit=3390,Volume=XTD007,Disp=SHR,Blksize=6160, Lrecl=80,Recfm=FB NOTE: 20 records were read from the infile 'U19K.CAPS.SAS (RAWDATA1)'. NOTE: The data set WORK.STAFF has 20 observations and 7 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7537K. NOTE: The address space has used a maximum of 3676K below the line and 15196K above the line. 14 proc format; 15 value Salrange low- 10000='Below' 16 10001- 20000='Medium' 17 20001- High='Above'; NOTE: Format SALRANGE has been output. 18 value $Gender F='Female' 19 M='Male'; NOTE: Format ÅGENDER has been output. 20 run; NOTE: The PROCEDURE FORMAT used 0.00 CPU seconds and 7523K. NOTE: The address space has used a maximum of 3676K below the line and 15196K above the line. 21 22 /*ODS-Output delivery system to create html file*/ 23 ods listing close; 24 ods html file='C:\Documents and Settings\u19k\Desktop\html1.html'; NOTE: Writing HTML Body file: C:\Documents and Settings\u19k\Desktop\html1.html ERROR: Invalid file, C:\DOCUMENTS AND SETTINGS\U19K\DESKTOP\HTML1.HTML. WARNING: No body file. HTML output will not be created. 25 26 /*Basic "label" statement*/ 27 proc print data=work.staff split=''; 28 label LastName='Last Name' 29 FirstName='First Name' 30 JobTitle='Job Title' 31 Salary='Annual Salary'; 32 format Salary Salrange. Gender $Gender.; 33 var LastName FirstName JobTitle Salary Gender; 34 title 'Employee database'; 35 run; WARNING: No output destinations active. NOTE: The PROCEDURE PRINT used 0.00 CPU seconds and 10275K. NOTE: The address space has used a maximum of 3676K below the line and 15196K above the line. 36 37 /*ODS-html closing*/ 38 ods html close; 39 ods listing;
what is the use of JCL?
example for sub strings ? and refernce modifications whit output pls
What is the main function of key sequenced data set in vsam?
How to do automated restart when a job abend?
which is the cics control program that provides communication services between user written application programs and terminals?
What do we mean by 'Virtual storage' for a dataset and for a JOBSTEP ? What is the significance of the following statement for a programmer 'Virtual storage results in program addresses being independent of the addresses that actually exist in a computer' ?
