Hi,

I using two forms (-crtform) one as input and another output. The input data will be comapred in a table command and corresponding record will be ftched from a file. This query will fetch only one record and the data should be displayed in the other form. But when I am running my code, the output values are not displayed, instead the varialble names are displayed.
I am attaching the code and the screen shots also.

Any help to resolve this problem would be appreciated.

Actually I could not attach the files. Here is the code:
DYNAM ALLOC FILE STUDENT DA AACAP25.STUD.STUDENT.DATA SHR REUSE
DEFINE FILE STUDENT
TOTAL_MARKS/D5=MARK_1+MARK_2+MARK_3;
PERC/D5.2S=TOTAL_MARKS/3.0;
END
-RUN
-START
-SET &STUD_ID=' ';
-SET &F_NAME=' ';
-SET &L_NAME=' ';
-SET &DEPT=' ';
-SET &MARK_1=' ';
-SET &MARK_2=' ';
-SET &MARK_3=' ';
-SET &TOTAL_MARKS=' ';
-SET &PERC=' ';
-SET &PFKEY=' ';
-SET &ERRMSG=' ';
-FORM_1
-RUN
-CRTFORM TYPE 1 LINE 1
-" SAMPLE DATA ENTRY PANEL "
-" "
-" "
-" "
-" "
-"<5><.Y. ENTER THE STUDENT ID: <.IBT.&STUD_ID "
-"<.P. "
-" "
-" "
-"<.R. <10 PF3=END ENTER=PROCESS "
-" "
-"<.YD.&ERRMSG/50>"
-************VERIFY APPROPRIATE KEY AND DATA ENTERED
-IF &PFKEY EQ 'PF03' GOTO THEEND;
-IF &STUD_ID EQ ' ' GOTO NO_DATA;
-IF &PFKEY EQ 'ENTR' GOTO DO_RPT;
-SET &ERRMSG='PLEASE USE PF3 OR THE ENTER KEY';
-GOTO FORM_1;
-NO_DATA
-SET &ERRMSG='PLEASE ENTER A STUDENT ID';
-GOTO FORM_1
-DO_RPT
-SET &ERRMSG=' ';
TABLE FILE STUDENT
PRINT *
WHERE STUD_ID EQ &STUD_ID
END
SET STUD_ID=&STUD_ID;
SET F_NAME=&F_NAME;
SET &L_NAME=L_NAME;
SET &DEPT=DEPT;
SET &MARK_1=MARK_1;
SET &MARK_2=MARK_2;
SET &MARK_3=MARK_3;
SET &TOTAL_MARKS=TOTAL_MARKS;
SET &PERC=PERC;
-CRTFORM TYPE 1 LINE 1
-" OUTPUT PANEL "
-" "
-" "
-" "
-"<5><.Y. STUDENT ID : <.R. &STUD_ID "
-"<5><.Y. STUDENT NAME : <.R. &F_NAME><.R. &L_NAME> "
-"<5><.Y. DEPARTMENT: <.R. &DEPT> "
-"<5><.Y. MARKS IN COBOL: <.R. &MARK_1> "
-"<5><.Y. MARKS IN DB2 : <.R. &MARK_2> "
-"<5><.Y. MARKS IN FOCUS: <.R. &MARK_3> "
-" "
-"<5><.Y. TOTAL MARKS IN MAINFRAMES <.R. &TOTAL_MARKS> "
-" "
-"<5><.Y. PERCENTAGE : <.R. PERC>% "
-"<.P. "
-" "
-" "
-"<.R. <10 PF4=BACK "
-" "
-"<.YD.&ERRMSG/50>"
-IF &PFKEY EQ 'PF04' GOTO START;
-THEEND
END
-RUN

As far as I can tell, none of these commands are valid:

SET STUD_ID=&STUD_ID;
SET F_NAME=&F_NAME;
SET &L_NAME=L_NAME;
SET &DEPT=DEPT;
SET &MARK_1=MARK_1;
SET &MARK_2=MARK_2;
SET &MARK_3=MARK_3;
SET &TOTAL_MARKS=TOTAL_MARKS;
SET &PERC=PERC;

Do an ON TABLE SAVE in your TABLE request. Then do a -READ SAVE to populate your amper variables.