Answer / amita

The file from the PC can be transferred to mainframe using
FTP (File transfer protocol)

Answer / suresh ramaiyan

We can use Option 6 in mainframe to transfer a file from
mainframe to PC or PC to mainframe. More over,we can use
FTP via command prompt in PC to trasfer a file to and from
Mainframe.

Answer / rkt

The easiest way to transfer a file from Mainframe to PC and
vice versa is to use ISPF panel number 6. Go to this panel
and click on the Receive file option in menu bar. Provide
the sufficient paths (like host path and pc path). One
prompt will popup to say your file will be transfer and
contents will be saved in notepad.

It could work fine in case If you need any assistence
please let me know.

Answer / srinivasa yadav

IN ISPF PANNEL GO FOR OPTION 6 i.e TRANSFER
BY THIS OPTION 6 WE CAN DO 2 THINGS.
1)WE CAN TRANSFER FROM MAINFRAMES TO PC.
2)AND WE CAN TRANSFER FROM PC TO MAINFRAMES.

Answer / pawan

It can be done through Emulator software(Session)if file is
from your PC(local) or NDM Or FTP ( if File is from remote
or local server)

how do u link sub pgm to main pgm ?

2 Answers   TCS,

What is the output generated by the following code? 01 GRP-I. 05 SUBFLD1 PIC XX VALUE "AB". 05 FILTER PIC X(6) VALUE SPACES. 01 GRP-2 REDEFINED GRP-1. 05 SUB-FLD2 PIC XX. 05 SUB-FLD3 PIC XX. 05 FILTER PIC X(4). IF SUB-FLD1 NOT = SPACES DISPLAY "SUBFLD1" MOVE "ABBCCD" TO GRP-1 IF SUB-FLD3 = SPACES DISPLAY "SPACES" ELSE DISPLAY "SUBFLD3" DISPLAY "END" ELSE DISPLAY "SPACES" DISPLAY "END". (a) SUBFLD1 SUBFLD3 END (b) SPACES END (c) SUBFLD1 END (d) SUBFLD1 SPACES

7 Answers   TCS,

I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?

0 Answers  

here is my compile and link edit steps in a jcl //COMPILE1 JOB (3CUS,S),'CCDM TEST' //STEPNAME EXEC PGM=IGYCRCTL,PARM='DYNAM,RENT,LIB,OBJECT, // OFFSET,APOST,OPTIMIZE',REGION=4096K //STEPLIB DD DSNAME=PM7351.TEST2.COB,DISP=SHR //SYSIN DD DSNAME=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT2 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT3 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT4 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT5 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT6 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSUT7 DD UNIT=SYSDA,SPACE=(10,(10,10)) //SYSPRINT DD SYSOUT=* //SYSLIN DD DSNAME=&&LOAD,DISP=(MOD,PASS),UNIT=SYSDA, // SPACE=(10,(10,10)),DCB=BLKSIZE=400 //LKED EXEC PGM=IEWL,REGION=1024K //SYSPRINT DD SYSOUT=A //SYSLIB DD DSN=PM7351.TEST2.LOADLIB,DISP=SHR // DD DSN=PM7351.TEST2.COB(PGM1),DISP=SHR //SYSLMOD DD DSN=PM7351.TEST2.LOADLIB, // DISP=SHR //SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,SPACE=(CYL,(1,1)) //SYSTERM DD SYSOUT=* //SYSLIN DD DSN=&&LOAD,DISP=(OLD,DELETE) //SYSIN DD DUMMY i am getting IEW2013I 0F08 NO MEMBER NAME WAS SPECIFIED. MODULE WAS SAVED USING TEMPNAM1. could any one tell me the resolution for this..?

1 Answers  

can I copy book which contain db2 statment in procedure divion?

2 Answers   Bank Of America,

How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?

0 Answers  

what will happen if i give program name and member name as different? program runs successful or w'll abend?

5 Answers   CTS,

how to access vsam files in cobol and how to differentiate that this is ESDS file

1 Answers   EDS,

What was removed from COBOL in the COBOL II implementation?

0 Answers  

if i am reading a file with some 50000 records and moving to a DB2 table and suddenly the program abends in between, is there anyway i could restart from the exact record at which the job failed once the program restarts.

2 Answers   UST,

I have a source program compiled with Cobol-2. The output file has a record length of 100 defined in the program but a record of 60 bytes getting written into it. i.e. The rest of 40 bytes I am not Writing anything. But it by default puts some values into the last 40 bytes. However it does not impact anything. But when Compiled the module with Enterprise Cobol the last 40 bytes were spaces as fillers. Can anyone explain?

5 Answers   Cognizant,

What are literals?

0 Answers