You can do this very easy by using the COMMAND intrinsic
 example:

006500 SPECIAL-NAMES.
006600     CONDITION-CODE IS CC


013800 WORKING-STORAGE SECTION.
069600    03 LF                       PIC X VALUE %10.
069700    03 CR                       PIC X VALUE %15.

001000 01 COMMAND-PARMS.
001100    03 COMM-IMAGE                PIC X(80).
001200    03 COMM-ERROR                PIC S9(4)  COMP.
001300    03 COMM-PARM                 PIC S9(4)  COMP.
001400    03 COMM-MSGLEVEL             PIC S9(4)  COMP.

069900 PROCEDURE DIVISION.
104800       MOVE SPACES TO COMM-IMAGE
104900       STRING 'BUILD TESTFILE;REC=-16,16,F,ASCII;DISC=10000' CR LF
105100         DELIMITED BY SIZE INTO COMM-IMAGE
105200       END-STRING
105300       CALL INTRINSIC 'COMMAND' USING COMM-IMAGE
105400                                      COMM-ERROR
105500                                      COMM-PARM
107400       IF CC <> 0
107500         DISPLAY COMM-IMAGE
107700         CALL INTRINSIC 'QUIT' USING \2\
107800       END-IF

Kind regards
Hans van de Spijker



SCastle heeft geschreven in bericht ...
>Is there any way using an HP intrinsic to build a file within a COBOL
>program?  I ask because the temporary file that is created by COBOL under
>MPE only allows 10,000 records.  I need to bump this number up, but I
>haven't been able to come up with a way to solve this problem.
>
>I know I can create the file using a build statement, but I'm creating the
>file with a different name every time at run-time, so I need to do the
>build within the COBOL program.
>