Re: Copying file with *nochk

["Çagatay AZKIN" <cazkin@xxxxxxxxxx>]

First, Thank You Your repply,

1. I use CPYF. But When I copy it using RPG Program, result was same.

2. CUM PTF was applied about 6 months ago

3. I have Attached program and DDS of each 2 files. Please refer;

Finally, I want to create and ACSII copy of this PF. I mean, I will copy to
SSKTXT then transfer to PC Floppy Disk.

Thank You in Advance

Cagatay


-----Original Message-----
From: ks_kiran@tkm.satyam.net.in <ks_kiran@tkm.satyam.net.in>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: 22 Eylül 1999 Çarþamba 06:02
Subject: Re: Copying file with *nochk


>
>Hi,
>
>     How are you copying from one pf to another let me know. So that i can
>solve your problem. There are many
>methods of copying file (ex: cpyf, crtdupobj etc.)
>
>Regards
>Kiran
>
>
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>
     FSSK4AYP IF  E           K        DISK
     FSSK4AYTXO   E                    DISK
      *
     ISSK4AYR
     I              BORTURU                         BORTUR
     I              GNGUNTOP                        GNGUNT
     I              GNKAZTOP                        GNKAZT
      *
     I            DS
     I                                        1   40YIL
     I                                        5   50DONEM
     I                                        6   70SUBE
     I                                        8   80SKOD
     I                                        9  120ISKOLK
     I                                       13  210ISYNO
     I                                       22  230ILKOD
     I                                       24  250ILCKOD
     I                                       26  270TASNUM
     I                                       28  280ISKODU
     I                                       29  29 BORTUR
     I                                       30  330SAYFA
     I                                       34  350SIRA
     I                                       36  48 SSICIL
     I                                       49  66 AD
     I                                       67  84 SAD
     I                                       85  870BORGUN
     I                                       88  970KAZANC
     I                                       98  98 K18
     I                                       99 1020IGT
     I                                      103 1060ICT
     I*                                     107 1120SAYGUN
     I*                                     113 1240SAYKAZ
     I*                                     125 1310GNGUNT
     I*                                     132 1450GNKAZT
     I*                                       1 115 DATA
      *
     C           *LOVAL    SETLLSSK4AYR
     C           *IN99     DOUEQ*ON
     C                     READ SSK4AYR                  99
     C                     WRITESSK4AYT
     C                     ENDDO
     C                     SETON                     LR
     C                     RETRN

                R SSK4AYR
                  YIL            4  0
                  DONEM          1  0
                  SUBE           2  0
                  SKOD           1  0
                  ISKOLK         4  0
                  ISYNO          9  0
                  ILKOD          2  0
                  ILCKOD         2  0
                  TASNUM         2  0
                  ISKODU         1  0
                  BORTURU        1
                  SAYFA          4  0
                  SIRA           2  0
                  SSICIL        13
                  AD            18
                  SAD           18
                  BORGUN         3  0
                  KAZANC        10  0
                  K18            1
                  IGT            4  0
                  ICT            4  0
                  SAYGUN         6  0
                  SAYKAZ        12  0
                  GNGUNTOP       7  0
                  GNKAZTOP      14  0

                K YIL
                K DONEM
                K SUBE
                K SKOD
                K ISKOLK
                K ISYNO
                K ILKOD
                K ILCKOD
                K SAYFA
                K SIRA

                R SSK4AYT
                  DATA         115