There are three basic steps that need to be followed in order to prepare your z/VM data.

  1. Gather diagnostic data.
    • Your IBM SSR will inform you what diagnostic data is required.
    • Your IBM SSR will provide you with a Problem Management Record number (PMR). Write this down.
  2. Compress data
    • All diagnostic data delivered electronically to IBM must be in a compressed or packed format following the IBM file naming convention. Use the IBM file naming convention as shown below. This will be provided to you by your IBM SSR.
      • VM users should compress the file to be transferred using the CMS COPYFILE command with the PACK option.
    • File naming convention: xxxxx.bbb.ccc.yyy.yyy
    • Example: 43123.055.724.pack (PMR_#.branch_office_#.country_code_#.pack)
    Field Description Sample
    xxxxx PMR number 43123
    bbbb Branch office number 055
    ccc 724
    yyy.yyy Short description of the file pack
  3. Send data
Skip to main content

Delivery via VM or z/VM

/* Sample for a FTP transfer of data to the ftp.ecurep.ibm.com */
/* Server, userid and password are from file NETRC DATA A */
/* which should like this without comments */
/* machine oddjob login anonymou password anonymou */
/* machine ftp.ecurep.ibm.com login anonymous password xxx§zzzzz */
/* */
/* */
/* You can call these exec with parameter */
/* DOWN fn ft fm pmr branch country */
/* fn = filename */
/* ft = filetype */
/* fm = filemode */
/* pmr = IBM PMR ID (Problem mangement record ID) */
/* branch = IBM Branch office ID */
/* country = IBM Country number */
/* */
/* or correct the following lines and remove the comment */
/* fn = DUMP */
/* ft = CPACK */
/* fm = A */
/* pmr = 99999 */
/* branch = 111 */
/* country = 724 */
/* */
/* */
Address CMS
/* correct the linkname for TCPIP if necessary */
'VMLINK TCPIP '
fn = QT
ft = REXTRACE
fm = A
pmr = 99999
branch = 111
country = 724
cmstype = Cmsflag('CMSTYPE')
s = Translate(Diag(8,'Q SET'),' ',','!!'15'x)/* comma and tab: blanks*/
Parse Var s 'MSG' msg . 'EMSG' emsg . 'IMSG' imsg . 'SMSG' smsg .

Call DIAG 8,'SET MSG OFF' !! '15'x , /* Set messages off as needed*/
'SET EMSG OFF' !! '15'x , /* Separate with the newline */
'SET IMSG OFF' !! '15'x , /* character */
'SET SMSG OFF'
Address COMMAND 'GLOBALV SELECT CPCMS', /* Store settings in GLOBALV */
'SETL VARS' cmstype msg emsg imsg smsg
if arg()/=0 then
Parse Arg fn ft fm pmr branch country
Do Until Var='ASKFILE'
'STATE' fn ft fm
If rc=0 Then
Do
fn = Strip(fn)
ft = Strip(ft)
fm = Strip(fm)
Var='ASKFILE'
End
Else
Do
Say 'Please type filename filetype and filetype or type EXIT'
Pull fn ft fm
If fn='EXIT' Then
Exit
End
End
Do Until Var='ASKPMR'
If Datatype(pmr)='NUM' & Length(pmr)=5 Then
Var ='ASKPMR'
Else
Do
Say 'Please type PMR ID or EXIT'
Pull pmr
If pmr='EXIT' Then
Exit
Iterate
End
End
Do Until Var='ASKBRA'
If Datatype(branch)='NUM' & Length(branch)=3 Then
Var ='ASKBRA'
Else
Do
Say 'Please type your IBM Branch office ID or EXIT'
Pull branch
If branch='EXIT' Then
Exit
Iterate
End
End
Do Until Var='ASKCOU'
If Datatype(country)='NUM' & Length(country)=3 Then
Var='ASKCOU'
Else
Do
Say 'Please type your IBM country ID or EXIT'
Pull country
If branch='EXIT' Then
Exit
Iterate
End
End
/* create the pack file */
'COPYFILE 'fn ft fm '= = = (replace pack'
foreign=Space(pmr!!'.'!! branch !!'.'!!country!!'.'!!fn!!'.'!!ft,0)
local =Space(fn!!'.'!!ft!!'.'!!fm,0)
Queue 'cd /toibm/s390/'
Queue 'bin'
Queue 'put ' local foreign
Queue 'quit'
'FTP ftp.ecurep.ibm.com (EXIT'
rca=rc
Address COMMAND 'GLOBALV SELECT CPCMS', /* GET SETTINGS FROM GLOBALV */
'GET VARS'
Parse Var vars cmstype msg emsg imsg smsg
Call DIAG 8,'SET MSG ' msg !! '15'x , /* ALL RESETS IN SAME CALL */
'SET EMSG' emsg !! '15'x ,
'SET IMSG' imsg !! '15'x ,
'SET SMSG' smsg
If cmstype Then
'SET CMSTYPE RT' /* CMSTYPE IS DIFFERENT */
Else
'SET CMSTYPE HT'
Exit rca

Skip to main content

Delivery via VM command line

Use the following instructions to transfer your data to our FTP server using File Transfer Protocol (FTP) from the VM command line.

NOTE: The instructions below do not include steps which may be necessary to pass through a firewall or proxy server.

  1. From the VM READY: prompt, enter: ftp ftp.ecurep.ibm.com
  2. At the USER: prompt, enter: anonymous
  3. At the password prompt, enter: your_email_address (e.g., your_user_id@company.com)
  4. At the Command: prompt, enter: cd toibm/vm/
  5. At the Command: prompt, enter: bin
  6. At the Command: prompt, enter: put qt.trace.a 11111.222.724.qt.trace.pack
  7. At the Command: prompt, enter: quit
Skip to main content

Delivery via a workstation

Use the following instructions to transfer your data to our FTP server using File Transfer Protocol (FTP) from the VM command line.

NOTE: The instructions below do not include steps which may be necessary to pass through a firewall or proxy server.

  1. From the VM READY: prompt, enter: ftp ftp.ecurep.ibm.com
  2. At the USER: prompt, enter: anonymous
  3. At the password prompt, enter: your_email_address (e.g., your_user_id@company.com)
  4. At the Command: prompt, enter: cd toibm/vm/
  5. At the Command: prompt, enter: bin
  6. At the Command: prompt, enter: put qt.trace.a 11111.222.724.qt.trace.pack
  7. At the Command: prompt, enter: quit
Skip to main content

IBM country codes

Related links

%%sidebarspace%%