Example 2

Operation: Start a CLIST to invoke the assembler.

Known:

The name of the data set that contains the CLIST is RBJ21.FASM.CLIST.

The CLIST consists of:

PROC 1 NAME
 free file(sysin,sysprint)
 delete (&name..list,&name..obj)
 allocate dataset(&name...asm) file(sysin) SHR  keep
 allocate dataset(&name..list) file(sysprint) -
  block(132) space(300,100)
 allocate dataset(&name..obj) file(syspunch) block(80) -
  space(100,50)
 allocate file(sysut1) space(3,1) cylinders new delete
 allocate file(sysut2) space(3,1) cylinders new delete
 allocate file(sysut3) space(3,1) cylinders new delete
 allocate file(syslib) da('d82ljp1.tso.macro',
  'sys1.maclib') shr
 call '*(ASMA90)' 'deck,noobj,rent'
 free file(sysut1,sysin,sysprint, -
  syspunch,syslib)
 allocate file(sysin) da(*)
 allocate file(sysprint) da(*)

Note: You can use a period to delimit a symbolic variable. However, follow the first period with another period. The first period is the delimiter that is removed during symbolic substitution of the variable. The second period remains unchanged.

The module to be assembled is TGETASIS.
You want to have the names of the commands in the CLIST displayed at your terminal as they are executed.

To execute the CLIST, enter:

exec fasm 'tgetasis' list

The display at your terminal need to be similar to:

 EX FASM 'TGETASIS' LIST
 FREE FILE(SYSIN,SYSPRINT)
 DELETE (TGETASIS.LIST,TGETASIS.OBJ)
 IDC0550I ENTRY (A) D82LJP1.TGETASIS.LIST DELETED
 IDC0550I ENTRY (A) D82LJP1.TGETASIS.OBJ DELETED
 ALLOCATE DATASET(TGETASIS.ASM) FILE(SYSIN) OLD KEEP
 ALLOCATE DATASET(TGETASIS.LIST) FILE(SYSPRINT)
  BLOCK(132) SPACE(300,100)
 ALLOCATE DATASET(TGETASIS.OBJ) FILE(SYSPUNCH)
  BLOCK(80) SPACE(100,50)
 ALLOCATE FILE(SYSUT1) SPACE(3,1) CYLINDERS NEW DELETE
 ALLOCATE FILE(SYSUT2) SPACE(3,1) CYLINDERS NEW DELETE
 ALLOCATE FILE(SYSUT3) SPACE(3,1) CYLINDERS NEW DELETE
 ALLOCATE FILE(SYSLIB) DA('D82LJP1.TSO.MACRO',
  'SYS1.MACLIB') SHR
 CALL '*(ASMA90)' 'DECK,NOOBJ,RENT'
 FREE FILE(SYSUT1,SYSUT2,SYSUT3,SYSIN,SYSPRINT,
  SYSPUNCH,SYSLIB)
 ALLOCATE FILE(SYSIN) DA(*)
 ALLOCATE FILE(SYSPRINT) DA(*)
 READY